From f60539dba44057dbcf6179f30d4f03f44c46f0b6 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sun, 2 Jan 2005 20:46:03 +0000
Subject: [PATCH] (SCM_VALIDATE_VECTOR, SCM_VALIDATE_VECTOR_OR_DVECTOR): use
 scm_is_simple_vector instead of SCM_VECTORP.

---
 libguile/validate.h | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/libguile/validate.h b/libguile/validate.h
index fb978d77c..1810be120 100644
--- a/libguile/validate.h
+++ b/libguile/validate.h
@@ -353,11 +353,14 @@
                 v, pos, FUNC_NAME); \
   } while (0)
 
-#define SCM_VALIDATE_VECTOR(pos, v) SCM_MAKE_VALIDATE_MSG (pos, v, VECTORP, "vector")
+#define SCM_VALIDATE_VECTOR(pos, v) \
+  do { \
+    SCM_ASSERT (scm_is_simple_vector (v), v, pos, FUNC_NAME); \
+  } while (0)
 
 #define SCM_VALIDATE_VECTOR_OR_DVECTOR(pos, v) \
   do { \
-    SCM_ASSERT ((SCM_VECTORP (v) \
+    SCM_ASSERT ((scm_is_simple_vector (v) \
                 || (scm_is_true (scm_f64vector_p (v)))), \
                 v, pos, FUNC_NAME); \
   } while (0)