From eb16734d62757c958c6652018d16511a750b7f0c Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Tue, 27 Jul 2004 23:36:35 +0000
Subject: (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.

---
 libguile/unif.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'libguile/unif.c')

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:
-- 
cgit v1.2.1