summaryrefslogtreecommitdiff
path: root/libguile/array-handle.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2014-02-08 21:02:48 +0100
committerAndy Wingo <wingo@pobox.com>2014-02-08 21:45:38 +0100
commit7070f12b9dc13f3b204acf2bd68c68b26e764990 (patch)
tree15f27dc40c1f7353372a06602e513024f1baedb2 /libguile/array-handle.c
parentd747313100cafb2d2e05c84b146e70df295d0931 (diff)
downloadguile-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.c4
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);
}