mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +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 cf64dca65c
commit 19239bbfcb
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

@ -169,7 +169,8 @@ scm_ramapc (void *cproc_ptr, SCM data, SCM ra0, SCM lra, const char *what)
if (kmax < 0) if (kmax < 0)
goto gencase; goto gencase;
vra0 = scm_array_contents (ra0, SCM_UNDEFINED); 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)) if (!SCM_I_ARRAYP (vra0))
{ {
size_t length = scm_c_array_length (vra0); size_t length = scm_c_array_length (vra0);