From e0e350b1108f35d4113fefca1de183a37ae4cf19 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Tue, 27 Jul 2004 23:44:20 +0000
Subject: [PATCH] *** empty log message ***

---
 libguile/ChangeLog   | 3 +++
 test-suite/ChangeLog | 2 ++
 2 files changed, 5 insertions(+)

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index df6c3e697..4173e79c6 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -3,6 +3,9 @@
 	* regex-posix.c (scm_make_regexp): Use SCM_VALIDATE_INT_COPY on flag
 	arguments, previously type was not checked.
 
+	* unif.c (scm_array_set_x): For svect, use scm_num2short to get range
+	check, previously silently truncated inum to short.
+
 2004-07-10  Kevin Ryde  <user42@zip.com.au>
 
 	* hash.c (scm_hashq, scm_hashv, scm_hash): Restrict to size>=1 rather
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index ee9a437e4..a9a63bf2c 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -2,6 +2,8 @@
 
 	* tests/regexp.test (make-regexp): Exercise flags args validation.
 
+	* tests/unif.test (array-set!): Exercise svect value range check.
+
 2004-05-25  Matthias Koeppe  <mkoeppe@mail.math.uni-magdeburg.de>
 
 	* tests/format.test (~{): Test no arbitrary iteration limit.