[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-97-gb1fe20c

[Ian Price]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=b1fe20c24ccb380420ea1ffdc7f249224072dcdc

The branch, stable-2.0 has been updated
       via  b1fe20c24ccb380420ea1ffdc7f249224072dcdc (commit)
      from  9cdf0ac603303ed8940a29d4fc4d8454f97b79aa (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit b1fe20c24ccb380420ea1ffdc7f249224072dcdc
Author: Ian Price <address@hidden>
Date:   Sun Oct 20 20:16:09 2013 +0100

    Fix optional end argument in `uniform-vector-read!'.
    
    Fixes <http://bugs.gnu.org/15370>.
    Reported by Thien-Thi Nguyen <address@hidden>.
    
    * libguile/deprecated.c (scm_uniform_vector_read_x): Only multiply by
      width when argument supplied.

-----------------------------------------------------------------------

Summary of changes:
 libguile/deprecated.c |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index f37b7f1..600b984 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -1371,8 +1371,8 @@ SCM_DEFINE (scm_uniform_vector_read_x, 
"uniform-vector-read!", 1, 3, 0,
   c_start = SCM_UNBNDP (start) ? 0 : scm_to_size_t (start);
   c_start *= c_width;
 
-  c_end = SCM_UNBNDP (end) ? SCM_BYTEVECTOR_LENGTH (uvec) : scm_to_size_t 
(end);
-  c_end *= c_width;
+  c_end = SCM_UNBNDP (end) ? SCM_BYTEVECTOR_LENGTH (uvec)
+                           : scm_to_size_t (end) * c_width;
 
   result = scm_get_bytevector_n_x (port_or_fd, uvec,
                                   scm_from_size_t (c_start),


hooks/post-receive
-- 
GNU Guile