mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 03:40:34 +02:00
(SCM_VALIDATE_VECTOR, SCM_VALIDATE_VECTOR_OR_DVECTOR): use
scm_is_simple_vector instead of SCM_VECTORP.
This commit is contained in:
parent
cb26f5696c
commit
f60539dba4
1 changed files with 5 additions and 2 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue