Change MAKE-RANDOM-SVL to generate empty ranges.

diff --git a/tests/runtime/test-char-set.scm b/tests/runtime/test-char-set.scm
index 97f50fde65a69f58ddaaebcdb5d972b9977bf69c..e4fb1a5810ca19f3c331ba2d92c213d737de5478 100644 (file)
--- a/tests/runtime/test-char-set.scm
+++ b/tests/runtime/test-char-set.scm
@@ -69,7 +69,7 @@ USA.
        (let loop ()
          (let ((n (random (- char-code-limit modulus))))
            (let ((m (random modulus)))
-             (if (= m 0)
+             (if (= m 1)
                  n
                  (cons n (+ n m))))))))))