summaryrefslogtreecommitdiff
path: root/libguile/bitvectors.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/bitvectors.c')
-rw-r--r--libguile/bitvectors.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c
index 9817e90ab..dd4a12e3f 100644
--- a/libguile/bitvectors.c
+++ b/libguile/bitvectors.c
@@ -165,12 +165,12 @@ scm_array_handle_bit_elements (scm_t_array_handle *h)
scm_t_uint32 *
scm_array_handle_bit_writable_elements (scm_t_array_handle *h)
{
- SCM vec = h->array;
+ SCM vec = h->root;
if (SCM_I_ARRAYP (vec))
vec = SCM_I_ARRAY_V (vec);
if (IS_BITVECTOR (vec))
return BITVECTOR_BITS (vec) + h->base/32;
- scm_wrong_type_arg_msg (NULL, 0, h->array, "bit array");
+ scm_wrong_type_arg_msg (NULL, 0, h->root, "bit array");
}
size_t
@@ -869,7 +869,7 @@ static void
bitvector_get_handle (SCM bv, scm_t_array_handle *h)
{
h->base = 0;
- h->array = bv;
+ h->root = bv;
h->ndims = 1;
h->dims = &h->dim0;
h->dim0.lbnd = 0;