summaryrefslogtreecommitdiff
path: root/libguile/array-handle.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/array-handle.c')
-rw-r--r--libguile/array-handle.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/array-handle.c b/libguile/array-handle.c
index 10cd375d4..daa1fcbc7 100644
--- a/libguile/array-handle.c
+++ b/libguile/array-handle.c
@@ -75,6 +75,7 @@ scm_array_get_handle (SCM array, scm_t_array_handle *h)
h->writable_elements = NULL;
h->vref = impl->vref;
h->vset = impl->vset;
+ h->vector = SCM_I_ARRAYP (array) ? SCM_I_ARRAY_V (array) : array;
impl->get_handle (array, h);
}