mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Don't use ASET in scm_array_index_map_x

Browse source 
* libguile/array-map.c: (scm_array_index_map_x): replace ASET by direct
  use of handle->impl.
This commit is contained in:
Daniel Llorens 2013-04-26 13:02:38 +02:00 • committed by Andy Wingo
parent 992904a8ca
commit b7c8836b71
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/array-map.c
View file

@ -704,6 +704,7 @@ array_index_map_1 (SCM ra, SCM proc)
static void
array_index_map_n (SCM ra, SCM proc)
{
scm_t_array_handle h;
size_t i;
int j, k, kmax = SCM_I_ARRAY_NDIM (ra) - 1;
ssize_t *vi;
@ -717,6 +718,7 @@ array_index_map_n (SCM ra, SCM proc)
return;
}
scm_array_get_handle (ra, &h);
k = kmax;
do
{
@ -735,7 +737,7 @@ array_index_map_n (SCM ra, SCM proc)
for (; vi[kmax] <= SCM_I_ARRAY_DIMS (ra)[kmax].ubnd;
*q = scm_from_ssize_t (++vi[kmax]))
{
ASET (SCM_I_ARRAY_V (ra), i, scm_apply_0 (proc, args));
h.vset (h.vector, i, scm_apply_0 (proc, args));
i += SCM_I_ARRAY_DIMS (ra)[kmax].inc;
}
k--;
@ -752,6 +754,7 @@ array_index_map_n (SCM ra, SCM proc)
}
}
while (k >= 0);
scm_array_handle_release (&h);
}
SCM_DEFINE (scm_array_index_map_x, "array-index-map!", 2, 0, 0,