diff options
| author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2013-04-17 10:19:26 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2014-01-27 21:45:18 +0100 |
| commit | c9b62794e00a835aa8fae222b8c4d795f2d2fdf1 (patch) | |
| tree | 9cb909ae52c4473721e7ac277f7a845d849190c3 | |
| parent | f5b2888e83b875c15c88764a9c2e7fa525d7c489 (diff) | |
| download | guile-c9b62794e00a835aa8fae222b8c4d795f2d2fdf1.tar.gz | |
Replace SCM_IMP in array-map.c
* libguile/array-map.c
- scm_ramapc: check scm_array_contents with scm_is_false.
| -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 2d6a2e71d..43ef046fd 100644 --- a/libguile/array-map.c +++ b/libguile/array-map.c @@ -208,7 +208,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); |