summaryrefslogtreecommitdiff
path: root/libguile/validate.h
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-11-02 19:46:29 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-11-02 19:46:29 +0000
commitdf47dca3143cff2040424d1d837290999e00dceb (patch)
treed11f6426149b2dc844c66f397e29681337d8d184 /libguile/validate.h
parentbbe6ba23668795df0734567b8eeb6b691dcbb609 (diff)
downloadguile-df47dca3143cff2040424d1d837290999e00dceb.tar.gz
(SCM_VALIDATE_VECTOR_OR_DVECTOR): Accept f64vectors instead of the
old-style dvectors.
Diffstat (limited to 'libguile/validate.h')
-rw-r--r--libguile/validate.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/validate.h b/libguile/validate.h
index 531a487cf..fb978d77c 100644
--- a/libguile/validate.h
+++ b/libguile/validate.h
@@ -358,7 +358,7 @@
#define SCM_VALIDATE_VECTOR_OR_DVECTOR(pos, v) \
do { \
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); \
} while (0)