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

r6rs reader: string escape correction

Browse Source 
svn: r8808
This commit is contained in:
Matthew Flatt 2008-02-26 22:15:30 +00:00
parent 5a646bfe18
commit 332dced862
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/r6rs/private/readtable.ss
View File

@ -277,10 +277,10 @@
col pos col pos
(and pos (+ 1 len)))))] (and pos (+ 1 len)))))]
[(or (eq? char #\tab) [(or (eq? char #\tab)
;(eq? char #\newline) (eq? char #\newline)
;(eq? char #\return) (eq? char #\return)
;(eq? char #\u85) (eq? char #\u85)
;(eqv? char #\u2028) (eqv? char #\u2028)
(eq? (char-general-category char) 'zs)) (eq? (char-general-category char) 'zs))
(let ([wm (regexp-match-positions #px"^(?:\t|\\p{Zs})*(?:\r\n|\r\u85|[\r\n\u85\u2028])(?:\t|\\p{Zs})*" (let ([wm (regexp-match-positions #px"^(?:\t|\\p{Zs})*(?:\r\n|\r\u85|[\r\n\u85\u2028])(?:\t|\\p{Zs})*"
bytes bytes