diff options
author | Andy Wingo <wingo@pobox.com> | 2014-02-08 21:02:48 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-02-08 21:45:38 +0100 |
commit | 7070f12b9dc13f3b204acf2bd68c68b26e764990 (patch) | |
tree | 15f27dc40c1f7353372a06602e513024f1baedb2 /libguile/array-handle.c | |
parent | d747313100cafb2d2e05c84b146e70df295d0931 (diff) | |
download | guile-7070f12b9dc13f3b204acf2bd68c68b26e764990.tar.gz |
vref, vset members of scm_t_array_handle
* libguile/array-handle.h (scm_t_array_ref, scm_t_array_set): Rename
from scm_i_t_array_ref, scm_i_t_array_set.
(scm_t_array_handle): Copy vref and vset from impl to handle.
(scm_array_handle_ref, scm_array_handle_set):
* libguile/array-map.c (racp, ramap, rafe, rafill, array_index_map_1):
* libguile/array-handle.c (scm_array_get_handle): Adapt.
Diffstat (limited to 'libguile/array-handle.c')
-rw-r--r-- | libguile/array-handle.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/array-handle.c b/libguile/array-handle.c index 62d8520f3..ea312037f 100644 --- a/libguile/array-handle.c +++ b/libguile/array-handle.c @@ -1,5 +1,5 @@ /* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003,2004, 2005, - * 2006, 2009, 2011, 2013 Free Software Foundation, Inc. + * 2006, 2009, 2011, 2013, 2014 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -74,6 +74,8 @@ 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); } |