summaryrefslogtreecommitdiff
path: root/libguile/array-map.c
diff options
context:
space:
mode:
authorDaniel Llorens <daniel.llorens@bluewin.ch>2013-04-17 10:19:26 +0200
committerAndy Wingo <wingo@pobox.com>2014-02-09 12:54:51 +0100
commit19239bbfcb89dfaf6ae3c40896645b0dbbc4783a (patch)
treec34f4696eedfb49e6037b5ae89f7c9f0b160227b /libguile/array-map.c
parentcf64dca65c4ee4d845a73e7d7c15ab7583aff15b (diff)
downloadguile-19239bbfcb89dfaf6ae3c40896645b0dbbc4783a.tar.gz
Replace SCM_IMP in array-map.c
* libguile/array-map.c - scm_ramapc: check scm_array_contents with scm_is_false.
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);