diff options
Diffstat (limited to 'libguile/array-handle.c')
-rw-r--r-- | libguile/array-handle.c | 1 |
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); } |