summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/array-handle.c7
-rw-r--r--libguile/array-handle.h1
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