X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/02a362a665ce462e4fe2409b2e2fc2c0007360f2..fd57bbf5ac7c790f0731b1a44c7d20f469403009:/libguile/validate.h

diff --git a/libguile/validate.h b/libguile/validate.h
index 0bdc057f9..b4d544151 100644
--- a/libguile/validate.h
+++ b/libguile/validate.h
@@ -4,7 +4,7 @@
 #define SCM_VALIDATE_H
 
 /* Copyright (C) 1999, 2000, 2001, 2002, 2004, 2006, 2007, 2009,
- *   2012 Free Software Foundation, Inc.
+ *   2011, 2012 Free Software Foundation, Inc.
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public License
@@ -353,7 +353,7 @@
 
 #define SCM_VALIDATE_ARRAY(pos, v) \
   do { \
-    SCM_ASSERT (!SCM_IMP (v) \
+    SCM_ASSERT (SCM_HEAP_OBJECT_P (v) \
                 && scm_is_true (scm_array_p (v, SCM_UNDEFINED)), \
                 v, pos, FUNC_NAME); \
   } while (0)