From 5b78d5815c38a13ae0958c8b6a0367fbcf75f7eb Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Wed, 10 Nov 2004 22:26:07 +0000 Subject: [PATCH] *** empty log message *** original commit: 35635a78f06d67efc23c84e6dcbd96315ca9bc73 --- collects/parser-tools/private-lex/re.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/parser-tools/private-lex/re.ss b/collects/parser-tools/private-lex/re.ss index eccce9a..3e1eea0 100644 --- a/collects/parser-tools/private-lex/re.ss +++ b/collects/parser-tools/private-lex/re.ss @@ -11,7 +11,7 @@ orR-res andR-res negR-re re-nullable? re-index) - (define max-char-num #x7FFFFFFF) + (define max-char-num #x10FFFF) ;; get-index : -> nat (define get-index (make-counter)) @@ -384,4 +384,4 @@ (isc (is:make-range 0))) ) - ) \ No newline at end of file + )