[Guile-commits] GNU Guile branch, master, updated. release_1-9-8-57-gdc32757

[Ludovic Courtès]

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=dc327575a8564257d8b84d835d72bc4fe098ba46

The branch, master has been updated
       via  dc327575a8564257d8b84d835d72bc4fe098ba46 (commit)
      from  3278efd3fa3fc106da5c5b704b26f35e5ec16ac4 (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 dc327575a8564257d8b84d835d72bc4fe098ba46
Author: Ludovic Courtès <address@hidden>
Date:   Wed Mar 3 10:18:41 2010 +0100

    Fix off-by-one error in the off-by-one fix of `make-srfi-4-vector'.
    
    This is a followup to d900a8557db21641413db8995a7cdc1453adbe1f ("Fix
    off-by-one error when initializing vectors in `make-srfi-4-vector'.").
    
    * libguile/srfi-4.c (scm_make_srfi_4_vector): Don't initialize RET when
      LEN is zero.

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

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

diff --git a/libguile/srfi-4.c b/libguile/srfi-4.c
index cb92b80..85fbc2d 100644
--- a/libguile/srfi-4.c
+++ b/libguile/srfi-4.c
@@ -257,7 +257,8 @@ SCM_DEFINE (scm_make_srfi_4_vector, "make-srfi-4-vector", 
2, 1, 0,
     case SCM_ARRAY_ELEMENT_TYPE_C64:
       {
         SCM ret = scm_i_make_typed_bytevector (scm_to_size_t (len), i);
-        if (SCM_UNBNDP (fill))
+
+        if (SCM_UNBNDP (fill) || scm_is_eq (len, SCM_INUM0))
           ; /* pass */
         else if (scm_is_true (scm_zero_p (fill)))
           memset (SCM_BYTEVECTOR_CONTENTS (ret), 0,


hooks/post-receive
-- 
GNU Guile