summaryrefslogtreecommitdiff
path: root/libguile/bitvectors.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/bitvectors.c')
-rw-r--r--libguile/bitvectors.c1
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;