mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

(scm_array_map_x): Don't use scm_array_p, use scm_is_typed_array

Browse source 
instead.
This commit is contained in:
Marius Vollmer 2006-01-29 19:59:51 +00:00
parent 3c55760aa3
commit 718866aa75
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/ramap.c
View file

@ -813,6 +813,7 @@ ramap_a (SCM ra0, SCM proc, SCM ras)
SCM_REGISTER_PROC(s_array_map_in_order_x, "array-map-in-order!", 2, 0, 1, scm_array_map_x); SCM_REGISTER_PROC(s_array_map_in_order_x, "array-map-in-order!", 2, 0, 1, scm_array_map_x);
SCM_SYMBOL (sym_b, "b");
SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1, SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1,
(SCM ra0, SCM proc, SCM lra), (SCM ra0, SCM proc, SCM lra),
@ -857,7 +858,7 @@ SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1,
case scm_tc7_rpsubr: case scm_tc7_rpsubr:
{ {
ra_iproc *p; ra_iproc *p;
if (scm_is_false (scm_array_p (ra0, SCM_BOOL_T))) if (!scm_is_typed_array (ra0, sym_b))
goto gencase; goto gencase;
scm_array_fill_x (ra0, SCM_BOOL_T); scm_array_fill_x (ra0, SCM_BOOL_T);
for (p = ra_rpsubrs; p->name; p++) for (p = ra_rpsubrs; p->name; p++)