diff options
author | Marius Vollmer <mvo@zagadka.de> | 2005-01-02 20:25:26 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2005-01-02 20:25:26 +0000 |
commit | 5d916ba3f0dc29b1bccc35d304f5a7849cfe41e7 (patch) | |
tree | dddf65460721f02aa71e84c84aee9e1dea67e494 | |
parent | b8b154fdf99d5df86c8bac87341067e86d0cd8a3 (diff) | |
download | guile-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.c | 9 |
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 |