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 1d45ad66b58fec5d62d3e6694d91273aeb80477f..97f50fde65a69f58ddaaebcdb5d972b9977bf69c 100644 (file)
--- a/tests/runtime/test-char-set.scm
+++ b/tests/runtime/test-char-set.scm
@@ -71,7 +71,7 @@ USA.
            (let ((m (random modulus)))
              (if (= m 0)
                  n
-                 (cons n (+ n m 1))))))))))
+                 (cons n (+ n m))))))))))
 
 (define-test 'membership
   (lambda ()