From e6658f527e2decf4b353f14b36b71c6009ebe3d6 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 8 Feb 2014 21:51:52 +0100 Subject: Remove "impl" member of array handles. * libguile/array-handle.h (scm_t_array_handle): Remove "impl" member. * libguile/array-handle.c (scm_array_get_handle): Adapt. --- libguile/array-handle.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'libguile/array-handle.c') 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 -- cgit v1.2.3