mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

Replace SCM_IMP in array-map.c

Browse source 
* libguile/array-map.c
  - scm_ramapc: check scm_array_contents with scm_is_false.
This commit is contained in:
Daniel Llorens 2013-04-17 10:19:26 +02:00 • committed by Andy Wingo
parent f5b2888e83
commit c9b62794e0
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/array-map.c
View file

@ -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);