From f69575032dd2e7c8af40d436067606dd75ccaa01 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sat, 3 Oct 1998 20:08:45 +0000 Subject: [PATCH] * unif.c (scm_array_set_x): Accept any kind of number as an element for a uniform vector of doubles. This is more consistent with Scheme's view of numbers. (Thanks to Miroslav Silovic.) --- libguile/unif.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/libguile/unif.c b/libguile/unif.c index cc0fbb38b..55549ba35 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -1329,13 +1329,11 @@ scm_array_set_x (v, obj, args) #ifdef SCM_FLOATS #ifdef SCM_SINGLES case scm_tc7_fvect: - SCM_ASRTGO (SCM_NIMP (obj) && SCM_REALP (obj), badobj); - ((float *) SCM_CDR (v))[pos] = SCM_REALPART (obj); + ((float *) SCM_CDR (v))[pos] = (float)scm_num2dbl(obj, s_array_set_x); break; break; #endif case scm_tc7_dvect: - SCM_ASRTGO (SCM_NIMP (obj) && SCM_REALP (obj), badobj); - ((double *) SCM_CDR (v))[pos] = SCM_REALPART (obj); + ((double *) SCM_CDR (v))[pos] = scm_num2dbl(obj, s_array_set_x); break; break; case scm_tc7_cvect: SCM_ASRTGO (SCM_NIMP (obj) && SCM_INEXP (obj), badobj);