From c9b62794e00a835aa8fae222b8c4d795f2d2fdf1 Mon Sep 17 00:00:00 2001
From: Daniel Llorens <daniel.llorens@bluewin.ch>
Date: Wed, 17 Apr 2013 10:19:26 +0200
Subject: [PATCH] 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(-)

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