From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 2 Jun 2010 08:38:16 +0000 (-0700)
Subject: Change MAPPER->GENERATOR to generate empty ranges.
X-Git-Tag: 20100708-Gtk~27
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=586cad433ccdb825bcfc51714e58dd6e611e7a28;p=mit-scheme.git

Change MAPPER->GENERATOR to generate empty ranges.
---

diff --git a/tests/runtime/test-char-set.scm b/tests/runtime/test-char-set.scm
index caf958ceb..1d45ad66b 100644
--- 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)))
 	  '()))))