summaryrefslogtreecommitdiff
path: root/libguile/validate.h
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-01-02 20:46:03 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-01-02 20:46:03 +0000
commitf60539dba44057dbcf6179f30d4f03f44c46f0b6 (patch)
treecd798485990ef2d7553f4d13e09bb30f2a2b1616 /libguile/validate.h
parentcb26f5696c359b8b14ab12d39d0e9549890bd95c (diff)
downloadguile-f60539dba44057dbcf6179f30d4f03f44c46f0b6.tar.gz
(SCM_VALIDATE_VECTOR, SCM_VALIDATE_VECTOR_OR_DVECTOR): use
scm_is_simple_vector instead of SCM_VECTORP.
Diffstat (limited to 'libguile/validate.h')
-rw-r--r--libguile/validate.h7
1 files 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)