Fix bug: ranges aren't necessarily code points.

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index 22053ee4c73dcf7bf3fcffea1e44eb70f66a3a79..d03aedc0f79c809af16b9fe8df86b4a150c98a88 100644 (file)
--- 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)))