diff options
author | Marius Vollmer <mvo@zagadka.de> | 2005-01-02 20:46:03 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2005-01-02 20:46:03 +0000 |
commit | f60539dba44057dbcf6179f30d4f03f44c46f0b6 (patch) | |
tree | cd798485990ef2d7553f4d13e09bb30f2a2b1616 /libguile/validate.h | |
parent | cb26f5696c359b8b14ab12d39d0e9549890bd95c (diff) | |
download | guile-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.h | 7 |
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) |