diff options
author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2013-04-17 10:19:26 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-02-09 12:54:51 +0100 |
commit | 19239bbfcb89dfaf6ae3c40896645b0dbbc4783a (patch) | |
tree | c34f4696eedfb49e6037b5ae89f7c9f0b160227b /libguile/array-map.c | |
parent | cf64dca65c4ee4d845a73e7d7c15ab7583aff15b (diff) | |
download | guile-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.c | 3 |
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); |