diff options
author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2013-04-24 16:00:06 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-01-27 21:48:02 +0100 |
commit | aba084e95e9103843bfbdbd0072c70335529fbb8 (patch) | |
tree | f216496cbb411c60eb570a5501892deb26e095de | |
parent | 1c22510af4a9e771ef2edf4759ad56af3d27feb8 (diff) | |
download | guile-aba084e95e9103843bfbdbd0072c70335529fbb8.tar.gz |
Simplify ASET in array-map.c
* libguile/array-map.c: (ASET): this is only ever used with a true vector
type, so remove use of inc/base/lbnd.
-rw-r--r-- | libguile/array-map.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/array-map.c b/libguile/array-map.c index ab98bf27f..b0fb4d9ff 100644 --- a/libguile/array-map.c +++ b/libguile/array-map.c @@ -62,12 +62,12 @@ AREF (SCM v, size_t pos) return ret; } +/* This is only ever used with v = SCM_I_ARRAY_V () */ static void ASET (SCM v, size_t pos, SCM val) { scm_t_array_handle h; scm_array_get_handle (v, &h); - pos = h.base + (pos - h.dims[0].lbnd) * h.dims[0].inc; h.impl->vset (h.array, pos, val); scm_array_handle_release (&h); } |