From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 31 Jan 2017 03:15:43 +0000 (-0800)
Subject: Fix bug: ranges aren't necessarily code points.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~9
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dcd73b668b087a84b322046a053e339537299198;p=mit-scheme.git

Fix bug: ranges aren't necessarily code points.
---

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index 22053ee4c..d03aedc0f 100644
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -102,8 +102,9 @@ USA.
 
 (define (%range? object)
   (or (and (pair? object)
-	   (unicode-code-point? (car object))
-	   (unicode-code-point? (cdr object))
+	   (index-fixnum? (car object))
+	   (index-fixnum? (cdr object))
+           (fix:<= (cdr object) char-code-limit)
 	   (fix:<= (car object) (cdr object)))
       (unicode-code-point? object)))