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