Change MAPPER->GENERATOR to generate empty ranges.

diff --git a/tests/runtime/test-char-set.scm b/tests/runtime/test-char-set.scm
index caf958ceb01cbc7b423ac798583826b6c9474dce..1d45ad66b58fec5d62d3e6694d91273aeb80477f 100644 (file)
--- a/tests/runtime/test-char-set.scm
+++ b/tests/runtime/test-char-set.scm
@@ -340,7 +340,7 @@ USA.
   (lambda (points)
     (let loop ((points points))
       (if (pair? points)
-         (append! (mapper (car points) (cdr points))
+         (append! (mapper (car points) points)
                   (loop (cdr points)))
          '()))))