From dcd73b668b087a84b322046a053e339537299198 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 30 Jan 2017 19:15:43 -0800 Subject: [PATCH] Fix bug: ranges aren't necessarily code points. --- src/runtime/chrset.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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))) -- 2.25.1