From 2b433a55963ea083f846643f091ce3b3719afb2a Mon Sep 17 00:00:00 2001
From: Scott Owens <sowens@cs.utah.edu>
Date: Mon, 24 May 2004 22:39:46 +0000
Subject: [PATCH] *** empty log message ***

original commit: 079848628e87fff39fed2bf5ee8450e8be71fec9
---
 collects/parser-tools/lex.ss                  | 22 +++++++++----------
 .../parser-tools/private-lex/unicode-chars.ss |  2 +-
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss
index 3ffcf53..9380884 100644
--- a/collects/parser-tools/lex.ss
+++ b/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
diff --git a/collects/parser-tools/private-lex/unicode-chars.ss b/collects/parser-tools/private-lex/unicode-chars.ss
index 26379bc..b580e6c 100644
--- a/collects/parser-tools/private-lex/unicode-chars.ss
+++ b/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