From b1fe20c24ccb380420ea1ffdc7f249224072dcdc Mon Sep 17 00:00:00 2001 From: Ian Price Date: Sun, 20 Oct 2013 20:16:09 +0100 Subject: [PATCH] Fix optional end argument in `uniform-vector-read!'. Fixes . Reported by Thien-Thi Nguyen . * libguile/deprecated.c (scm_uniform_vector_read_x): Only multiply by width when argument supplied. --- libguile/deprecated.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libguile/deprecated.c b/libguile/deprecated.c index f37b7f1ca..600b984a7 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),