mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

(scm_array_set_x): For svect, use scm_num2short to get range

Browse source 
check, previously silently truncated inum to short.
This commit is contained in:
Kevin Ryde 2004-07-27 23:39:15 +00:00
parent 1ddea1ca51
commit b36f6804b0
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/unif.c
View file

@ -1339,8 +1339,8 @@ SCM_DEFINE (scm_array_set_x, "array-set!", 2, 0, 1,
= scm_num2long (obj, SCM_ARG2, FUNC_NAME);
break;
case scm_tc7_svect:
SCM_ASRTGO (SCM_INUMP (obj), badobj);
((short *) SCM_UVECTOR_BASE (v))[pos] = SCM_INUM (obj);
((short *) SCM_UVECTOR_BASE (v))[pos]
= scm_num2short (obj, SCM_ARG2, FUNC_NAME);
break;
#ifdef HAVE_LONG_LONGS
case scm_tc7_llvect: