From 19239bbfcb89dfaf6ae3c40896645b0dbbc4783a Mon Sep 17 00:00:00 2001 From: Daniel Llorens Date: Wed, 17 Apr 2013 10:19:26 +0200 Subject: Replace SCM_IMP in array-map.c * libguile/array-map.c - scm_ramapc: check scm_array_contents with scm_is_false. --- libguile/array-map.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'libguile/array-map.c') 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); -- cgit v1.2.3