From 7070f12b9dc13f3b204acf2bd68c68b26e764990 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 8 Feb 2014 21:02:48 +0100 Subject: 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. --- libguile/array-handle.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'libguile/array-handle.c') 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); } -- cgit v1.2.3