summaryrefslogtreecommitdiff
path: root/libguile/array-map.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/array-map.c')
-rw-r--r--libguile/array-map.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/array-map.c b/libguile/array-map.c
index bef539dae..f3f95bc81 100644
--- a/libguile/array-map.c
+++ b/libguile/array-map.c
@@ -169,7 +169,8 @@ scm_ramapc (void *cproc_ptr, SCM data, SCM ra0, SCM lra, const char *what)
if (kmax < 0)
goto gencase;
vra0 = scm_array_contents (ra0, SCM_UNDEFINED);
- if (SCM_IMP (vra0)) goto gencase;
+ if (scm_is_false (vra0))
+ goto gencase;
if (!SCM_I_ARRAYP (vra0))
{
size_t length = scm_c_array_length (vra0);