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
(and pos (+ 1 len)))))]
[(or (eq? char #\tab)
;(eq? char #\newline)
;(eq? char #\return)
;(eq? char #\u85)
;(eqv? char #\u2028)
(eq? char #\newline)
(eq? char #\return)
(eq? char #\u85)
(eqv? char #\u2028)
(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})*"
bytes