mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(SCM_VALIDATE_VECTOR_OR_DVECTOR): Accept f64vectors instead of the

Browse source 
old-style dvectors.
This commit is contained in:
Marius Vollmer 2004-11-02 19:46:29 +00:00
parent bbe6ba2366
commit df47dca314
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/validate.h
View file

@ -358,7 +358,7 @@
#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_VECTORP (v) \
|| (!SCM_IMP (v) && SCM_TYP7 (v) == scm_tc7_dvect)), \ || (scm_is_true (scm_f64vector_p (v)))), \
v, pos, FUNC_NAME); \ v, pos, FUNC_NAME); \
} while (0) } while (0)