From 646c91cc10acf632eb08d8c6eaaa11d4e6fd13ac Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sun, 28 May 2006 19:10:38 +0000 Subject: [PATCH] pr8072 svn: r3095 --- collects/xml/private/reader.ss | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/collects/xml/private/reader.ss b/collects/xml/private/reader.ss index 5569709486..2f291eb410 100644 --- a/collects/xml/private/reader.ss +++ b/collects/xml/private/reader.ss @@ -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)]))))