summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Llorens <daniel.llorens@bluewin.ch>2013-04-24 16:00:06 +0200
committerAndy Wingo <wingo@pobox.com>2014-01-27 21:48:02 +0100
commitaba084e95e9103843bfbdbd0072c70335529fbb8 (patch)
treef216496cbb411c60eb570a5501892deb26e095de
parent1c22510af4a9e771ef2edf4759ad56af3d27feb8 (diff)
downloadguile-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.c2
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);
}