mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* unif.c (scm_array_set_x): Accept any kind of number as an

Browse source 
element for a uniform vector of doubles.  This is more consistent
with Scheme's view of numbers.  (Thanks to Miroslav Silovic.)
This commit is contained in:
Jim Blandy 1998-10-03 20:08:45 +00:00
parent a9fe62cba3
commit f69575032d
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/unif.c
View file

@ -1329,13 +1329,11 @@ scm_array_set_x (v, obj, args)
#ifdef SCM_FLOATS #ifdef SCM_FLOATS
#ifdef SCM_SINGLES #ifdef SCM_SINGLES
case scm_tc7_fvect: case scm_tc7_fvect:
SCM_ASRTGO (SCM_NIMP (obj) && SCM_REALP (obj), badobj); ((float *) SCM_CDR (v))[pos] = (float)scm_num2dbl(obj, s_array_set_x); break;
((float *) SCM_CDR (v))[pos] = SCM_REALPART (obj);
break; break;
#endif #endif
case scm_tc7_dvect: case scm_tc7_dvect:
SCM_ASRTGO (SCM_NIMP (obj) && SCM_REALP (obj), badobj); ((double *) SCM_CDR (v))[pos] = scm_num2dbl(obj, s_array_set_x); break;
((double *) SCM_CDR (v))[pos] = SCM_REALPART (obj);
break; break;
case scm_tc7_cvect: case scm_tc7_cvect:
SCM_ASRTGO (SCM_NIMP (obj) && SCM_INEXP (obj), badobj); SCM_ASRTGO (SCM_NIMP (obj) && SCM_INEXP (obj), badobj);