Fix off-by-one error when initializing vectors in `make-srfi-4-vector'.
authorLudovic Courtès <ludo@gnu.org>
Tue, 2 Mar 2010 22:16:26 +0000 (23:16 +0100)
committerLudovic Courtès <ludo@gnu.org>
Tue, 2 Mar 2010 22:16:26 +0000 (23:16 +0100)
commitd900a8557db21641413db8995a7cdc1453adbe1f
tree11fd4f557af18f02ac762493feb65332edcaa0fb
parent69c9600678e67a51b258f2e3cfe1b5e0f842b45d
Fix off-by-one error when initializing vectors in `make-srfi-4-vector'.

* libguile/srfi-4.c (scm_make_srfi_4_vector): When FILL is bound and
  non-zero, initialize the last element.

* test-suite/tests/srfi-4.test ("TAG vectors")["make-TAGvector"]: New
  tests.
libguile/srfi-4.c
test-suite/tests/srfi-4.test