mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

(SCM_VALIDATE_VECTOR, SCM_VALIDATE_VECTOR_OR_DVECTOR): use

Browse source 
scm_is_simple_vector instead of SCM_VECTORP.
This commit is contained in:
Marius Vollmer 2005-01-02 20:46:03 +00:00
parent cb26f5696c
commit f60539dba4
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/validate.h
View file

@ -353,11 +353,14 @@
v, pos, FUNC_NAME); \ v, pos, FUNC_NAME); \
} while (0) } 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) \ #define SCM_VALIDATE_VECTOR_OR_DVECTOR(pos, v) \
do { \ do { \
SCM_ASSERT ((SCM_VECTORP (v) \ SCM_ASSERT ((scm_is_simple_vector (v) \
|| (scm_is_true (scm_f64vector_p (v)))), \ || (scm_is_true (scm_f64vector_p (v)))), \
v, pos, FUNC_NAME); \ v, pos, FUNC_NAME); \
} while (0) } while (0)