From b0ef6db3d0916b8da246bfe3c55ea201c31873da Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Mon, 27 Feb 2006 16:34:12 +0000 Subject: [PATCH] (bitvector_set): Use h->writable_elements not h->elements. --- libguile/unif.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libguile/unif.c b/libguile/unif.c index 7d6e25f76..642dd151d 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -380,9 +380,9 @@ bitvector_set (scm_t_array_handle *h, ssize_t pos, SCM val) pos += scm_array_handle_bit_elements_offset (h); mask = 1l << (pos % 32); if (scm_to_bool (val)) - ((scm_t_uint32 *)h->elements)[pos/32] |= mask; + ((scm_t_uint32 *)h->writable_elements)[pos/32] |= mask; else - ((scm_t_uint32 *)h->elements)[pos/32] &= ~mask; + ((scm_t_uint32 *)h->writable_elements)[pos/32] &= ~mask; } static void