*** empty log message ***

original commit: 079848628e87fff39fed2bf5ee8450e8be71fec9

collects/parser-tools/lex.ss

@@ -261,17 +261,17 @@
                                           `(: ,@(map (lambda (x) `(- ,(integer->char (car x))
                                                                      ,(integer->char (cdr x))))
                                                      range)))
-                                        (list alphabetic-ranges
-                                              lower-case-ranges
-                                              upper-case-ranges
-                                              title-case-ranges
-                                              numeric-ranges
-                                              symbolic-ranges
-                                              punctuation-ranges
-                                              graphic-ranges
-                                              whitespace-ranges
-                                              blank-ranges
-                                              iso-control-ranges)))
+                                        (list (force alphabetic-ranges)
+                                              (force lower-case-ranges)
+                                              (force upper-case-ranges)
+                                              (force title-case-ranges)
+                                              (force numeric-ranges)
+                                              (force symbolic-ranges)
+                                              (force punctuation-ranges)
+                                              (force graphic-ranges)
+                                              (force whitespace-ranges)
+                                              (force blank-ranges)
+                                              (force iso-control-ranges))))
                      ((names ...) (map (lambda (sym)
                                          (datum->syntax-object (syntax ctxt) sym #f))
                                        '(alphabetic

collects/parser-tools/private-lex/unicode-chars.ss

@@ -40,7 +40,7 @@
                      
   
   (define (compute-ranges x?)
-    (get-chars-for (lambda (x) (x? (integer->char x))) mapped-chars))
+    (delay (get-chars-for (lambda (x) (x? (integer->char x))) mapped-chars)))
   
   (define alphabetic-ranges   (compute-ranges char-alphabetic?))  ;; 325
   (define lower-case-ranges   (compute-ranges char-lower-case?))  ;; 405