From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 9 Apr 2011 22:17:38 +0000 (+0000)
Subject: Ignore variable I in MAKE-RANDOM-SVL in character set tests.
X-Git-Tag: 20110426-Gtk~2^2~12
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a8a0c071280659b1ed4061a04e629d372fdd1ef6;p=mit-scheme.git

Ignore variable I in MAKE-RANDOM-SVL in character set tests.
---

diff --git a/tests/runtime/test-char-set.scm b/tests/runtime/test-char-set.scm
index a911b05d0..a2ca1e64c 100644
--- a/tests/runtime/test-char-set.scm
+++ b/tests/runtime/test-char-set.scm
@@ -68,6 +68,7 @@ USA.
   (let ((modulus (* %low-limit 2)))
     (make-initialized-list n-ranges
       (lambda (i)
+	i
 	(let loop ()
 	  (let ((n (random (- char-code-limit modulus))))
 	    (let ((m (random modulus)))