* 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.)

diff --git a/libguile/unif.c b/libguile/unif.c
index cc0fbb3..55549ba 100644 (file)
--- 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);