mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* ramap.c (scm_array_map_x): Do not try to convert fill value

Browse source 
before filling, any necessary conversion is done while storing.
This commit is contained in:
Marius Vollmer 2005-01-02 20:25:26 +00:00
parent b8b154fdf9
commit 5d916ba3f0
1 changed files with 1 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/ramap.c
View file

@ -957,14 +957,7 @@ SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1,
case scm_tc7_asubr: case scm_tc7_asubr:
if (scm_is_null (lra)) if (scm_is_null (lra))
{ {
SCM prot, fill = SCM_SUBRF (proc) (SCM_UNDEFINED, SCM_UNDEFINED); SCM fill = SCM_SUBRF (proc) (SCM_UNDEFINED, SCM_UNDEFINED);
if (SCM_I_INUMP(fill))
{
prot = scm_array_prototype (ra0);
if (SCM_INEXACTP (prot))
fill = scm_from_double ((double) SCM_I_INUM (fill));
}
scm_array_fill_x (ra0, fill); scm_array_fill_x (ra0, fill);
} }
else else