From df47dca3143cff2040424d1d837290999e00dceb Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Tue, 2 Nov 2004 19:46:29 +0000 Subject: [PATCH] (SCM_VALIDATE_VECTOR_OR_DVECTOR): Accept f64vectors instead of the old-style dvectors. --- libguile/validate.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)