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 a911b05d0886a757ad5d2c7266dced4741d1d1d7..a2ca1e64cebb3ffc00f2c9f1d76293b410ca3d2e 100644 (file)
--- 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)))