remove enclosed arrays

[bpt/guile.git] / libguile / deprecated.c

diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index 57a2f06..f9a858b 100644 (file)
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -1309,7 +1309,7 @@ scm_i_arrayp (SCM a)
 {
   scm_c_issue_deprecation_warning
     ("SCM_ARRAYP is deprecated.  Use scm_is_array instead.");
-  return SCM_I_ARRAYP(a) || SCM_I_ENCLOSED_ARRAYP(a);
+  return SCM_I_ARRAYP(a);
 }
 
 size_t