From 26e1dd050d519fa19ac70e91e6abfa8c948fc50d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 6 Jun 2015 09:32:37 -0600 Subject: [PATCH] xform: fix character parsing Allow L'\x7f`, for example. --- racket/collects/compiler/private/xform.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/racket/collects/compiler/private/xform.rkt b/racket/collects/compiler/private/xform.rkt index eaee659a10..e784da6c6a 100644 --- a/racket/collects/compiler/private/xform.rkt +++ b/racket/collects/compiler/private/xform.rkt @@ -371,6 +371,11 @@ (cond [(not simple) (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) => (lambda (m) (loop (cdar m) @@ -381,11 +386,6 @@ (loop (cdar m) (cons (number (subbytes s (caar m) (cdar m))) 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) => (lambda (m) (loop (cdar m)