diff options
| author | Kevin Ryde <user42@zip.com.au> | 2004-07-27 23:36:35 +0000 |
|---|---|---|
| committer | Kevin Ryde <user42@zip.com.au> | 2004-07-27 23:36:35 +0000 |
| commit | eb16734d62757c958c6652018d16511a750b7f0c (patch) | |
| tree | bee76055af8d66dafe84b49cc6842a99f1dc93b7 /libguile/unif.c | |
| parent | a1f3180a9295ca7d48a69636dbd078abef932ab7 (diff) | |
| download | guile-eb16734d62757c958c6652018d16511a750b7f0c.tar.gz | |
(scm_array_set_x): For svect, use scm_num2short for
consistency with other vector types and to get arg and func name into
error message.
Diffstat (limited to 'libguile/unif.c')
| -rw-r--r-- | libguile/unif.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 3abc8c7d9..34b707f7b 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -1285,7 +1285,8 @@ SCM_DEFINE (scm_array_set_x, "array-set!", 2, 0, 1, = scm_num2long (obj, SCM_ARG2, FUNC_NAME); break; 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; #if SCM_SIZEOF_LONG_LONG != 0 case scm_tc7_llvect: |