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

pr8072

Browse Source 
svn: r3095
This commit is contained in:
Jay McCarthy 2006-05-28 19:10:38 +00:00
parent 9877a98a00
commit 646c91cc10
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/xml/private/reader.ss
View File

@ -72,9 +72,14 @@
(let read-more ()
(let ([x (lex in pos)])
(cond
[(or (pi? x) (comment? x))
[(pi? x)
(let-values ([(lst next) (read-more)])
(values (cons x lst) next))]
[(comment? x)
(let-values ([(lst next) (read-more)])
(if (read-comments)
(values (cons x lst) next)
(values lst next)))]
[(and (pcdata? x) (andmap char-whitespace? (string->list (pcdata-string x))))
(read-more)]
[else (values null x)]))))