diff options
Diffstat (limited to 'libguile/array-handle.c')
-rw-r--r-- | libguile/array-handle.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/libguile/array-handle.c b/libguile/array-handle.c index ea312037f..10cd375d4 100644 --- a/libguile/array-handle.c +++ b/libguile/array-handle.c @@ -66,7 +66,6 @@ scm_array_get_handle (SCM array, scm_t_array_handle *h) if (!impl) scm_wrong_type_arg_msg (NULL, 0, array, "array"); h->array = array; - h->impl = impl; h->base = 0; h->ndims = 0; h->dims = NULL; @@ -74,9 +73,9 @@ scm_array_get_handle (SCM array, scm_t_array_handle *h) something... */ h->elements = NULL; h->writable_elements = NULL; - h->vref = h->impl->vref; - h->vset = h->impl->vset; - h->impl->get_handle (array, h); + h->vref = impl->vref; + h->vset = impl->vset; + impl->get_handle (array, h); } ssize_t |