diff options
-rw-r--r-- | libguile/array-handle.c | 7 | ||||
-rw-r--r-- | libguile/array-handle.h | 1 |
2 files changed, 3 insertions, 5 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 diff --git a/libguile/array-handle.h b/libguile/array-handle.h index 457f7592d..e777d4de0 100644 --- a/libguile/array-handle.h +++ b/libguile/array-handle.h @@ -93,7 +93,6 @@ SCM_INTERNAL SCM scm_i_array_element_types[]; typedef struct scm_t_array_handle { SCM array; - scm_t_array_implementation *impl; /* `Base' is an offset into elements or writable_elements, corresponding to the first element in the array. It would be nicer just to adjust the elements/writable_elements pointer, but we can't because that element might |