mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

(scm_array_set_x): For svect, use scm_num2short for

Browse source 
consistency with other vector types and to get arg and func name into
error message.
This commit is contained in:
Kevin Ryde 2004-07-27 23:36:35 +00:00
parent a1f3180a92
commit eb16734d62
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/unif.c
View file

@ -1285,7 +1285,8 @@ SCM_DEFINE (scm_array_set_x, "array-set!", 2, 0, 1,
= scm_num2long (obj, SCM_ARG2, FUNC_NAME); = scm_num2long (obj, SCM_ARG2, FUNC_NAME);
break; break;
case scm_tc7_svect: case scm_tc7_svect:
((short *) SCM_UVECTOR_BASE (v))[pos] = scm_to_short (obj); ((short *) SCM_UVECTOR_BASE (v))[pos]
= scm_num2short (obj, SCM_ARG2, FUNC_NAME);
break; break;
#if SCM_SIZEOF_LONG_LONG != 0 #if SCM_SIZEOF_LONG_LONG != 0
case scm_tc7_llvect: case scm_tc7_llvect: