From 5d916ba3f0dc29b1bccc35d304f5a7849cfe41e7 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sun, 2 Jan 2005 20:25:26 +0000 Subject: [PATCH] * ramap.c (scm_array_map_x): Do not try to convert fill value before filling, any necessary conversion is done while storing. --- libguile/ramap.c | 9 +-------- 1 file changed, 1 insertion(+), 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