From 586cad433ccdb825bcfc51714e58dd6e611e7a28 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 2 Jun 2010 01:38:16 -0700
Subject: [PATCH] Change MAPPER->GENERATOR to generate empty ranges.

---
 tests/runtime/test-char-set.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))
 	  '()))))
 
-- 
2.25.1