summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-01-02 20:25:26 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-01-02 20:25:26 +0000
commit5d916ba3f0dc29b1bccc35d304f5a7849cfe41e7 (patch)
treedddf65460721f02aa71e84c84aee9e1dea67e494
parentb8b154fdf99d5df86c8bac87341067e86d0cd8a3 (diff)
downloadguile-5d916ba3f0dc29b1bccc35d304f5a7849cfe41e7.tar.gz
* ramap.c (scm_array_map_x): Do not try to convert fill value
before filling, any necessary conversion is done while storing.
-rw-r--r--libguile/ramap.c9
1 files changed, 1 insertions, 8 deletions
diff --git a/libguile/ramap.c b/libguile/ramap.c
index b427f61c4..ac6c7088a 100644
--- a/libguile/ramap.c
+++ b/libguile/ramap.c
@@ -957,14 +957,7 @@ SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1,
case scm_tc7_asubr:
if (scm_is_null (lra))
{
- SCM prot, 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 fill = SCM_SUBRF (proc) (SCM_UNDEFINED, SCM_UNDEFINED);
scm_array_fill_x (ra0, fill);
}
else