suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

xform: fix character parsing

Browse Source 
Allow L'\x7f`, for example.
This commit is contained in:
Matthew Flatt 2015-06-06 09:32:37 -06:00
parent 4deacddde8
commit 26e1dd050d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/collects/compiler/private/xform.rkt
View File

@ -371,6 +371,11 @@
(cond (cond
[(not simple) [(not simple)
(cond (cond
[(regexp-match-positions char-complex s p)
=> (lambda (m)
(loop (cdar m)
(cons (character (subbytes s (caar m) (cdar m)))
result)))]
[(regexp-match-positions symbol-complex s p) [(regexp-match-positions symbol-complex s p)
=> (lambda (m) => (lambda (m)
(loop (cdar m) (loop (cdar m)
@ -381,11 +386,6 @@
(loop (cdar m) (loop (cdar m)
(cons (number (subbytes s (caar m) (cdar m))) (cons (number (subbytes s (caar m) (cdar m)))
result)))] result)))]
[(regexp-match-positions char-complex s p)
=> (lambda (m)
(loop (cdar m)
(cons (character (subbytes s (caar m) (cdar m)))
result)))]
[(regexp-match-positions string-complex s p) [(regexp-match-positions string-complex s p)
=> (lambda (m) => (lambda (m)
(loop (cdar m) (loop (cdar m)