diff options
| author | Andy Wingo <wingo@pobox.com> | 2014-02-08 21:51:52 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2014-02-08 21:51:52 +0100 |
| commit | e6658f527e2decf4b353f14b36b71c6009ebe3d6 (patch) | |
| tree | 2860bb46566fdcba635b6fedf3079c863f570837 /libguile/array-handle.c | |
| parent | 2b5625ad0c93045d181d6c05eb9b94dc21462f22 (diff) | |
| download | guile-e6658f527e2decf4b353f14b36b71c6009ebe3d6.tar.gz | |
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.
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 |