diff options
author | Andy Wingo <wingo@pobox.com> | 2014-02-06 11:02:20 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-02-06 11:02:20 +0100 |
commit | 1fadf369b8eb2eec2011707ef1831c01ae134a37 (patch) | |
tree | 90557180f4e2a27348d1ccbc354fe3434654252c | |
parent | 9da9c22f846e2aa369593458201d5b5c7775b668 (diff) | |
download | guile-1fadf369b8eb2eec2011707ef1831c01ae134a37.tar.gz |
Replace generalized-vector calls in array_handle_ref/set
* libguile/arrays.c: (array-handle-ref, array-handle-set): Use the
rank-1 array accessors.
-rw-r--r-- | libguile/arrays.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/arrays.c b/libguile/arrays.c index ea0431343..4401a9738 100644 --- a/libguile/arrays.c +++ b/libguile/arrays.c @@ -1,5 +1,5 @@ /* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003,2004,2005, - * 2006, 2009, 2010, 2011, 2012, 2013 Free Software Foundation, Inc. + * 2006, 2009, 2010, 2011, 2012, 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 @@ -817,15 +817,15 @@ scm_i_print_array (SCM array, SCM port, scm_print_state *pstate) } static SCM -array_handle_ref (scm_t_array_handle *h, size_t pos) +array_handle_ref (scm_t_array_handle *hh, size_t pos) { - return scm_c_generalized_vector_ref (SCM_I_ARRAY_V (h->array), pos); + return scm_c_array_ref_1 (SCM_I_ARRAY_V (hh->array), pos); } static void -array_handle_set (scm_t_array_handle *h, size_t pos, SCM val) +array_handle_set (scm_t_array_handle *hh, size_t pos, SCM val) { - scm_c_generalized_vector_set_x (SCM_I_ARRAY_V (h->array), pos, val); + scm_c_array_set_1_x (SCM_I_ARRAY_V (hh->array), val, pos); } /* FIXME: should be handle for vect? maybe not, because of dims */ |