diff options
Diffstat (limited to 'libguile/bitvectors.c')
-rw-r--r-- | libguile/bitvectors.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c index 2eef1dc56..2d36110d4 100644 --- a/libguile/bitvectors.c +++ b/libguile/bitvectors.c @@ -868,6 +868,7 @@ bitvector_handle_set (scm_t_array_handle *h, size_t pos, SCM val) static void bitvector_get_handle (SCM bv, scm_t_array_handle *h) { + h->base = 0; h->array = bv; h->ndims = 1; h->dims = &h->dim0; |