mbutterick
/
br-parser-tools
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

*** empty log message ***

Browse Source 
original commit: 079848628e87fff39fed2bf5ee8450e8be71fec9
tokens
Scott Owens 21 years ago
parent c0928f7478
commit 2b433a5596
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File

22
collects/parser-tools/lex.ss
Unescape Escape View File

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

2
collects/parser-tools/private-lex/unicode-chars.ss
Unescape Escape View File

@ -40,7 +40,7 @@
(define (compute-ranges x?) (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 alphabetic-ranges (compute-ranges char-alphabetic?)) ;; 325
(define lower-case-ranges (compute-ranges char-lower-case?)) ;; 405 (define lower-case-ranges (compute-ranges char-lower-case?)) ;; 405

Write Preview
Loading…
Cancel
Save