From b969371faacdfc59980a1bc5faa767a220b77795 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Sat, 28 Apr 2007 16:42:33 +0000 Subject: [PATCH] better error for pcdata case svn: r6069 --- collects/xml/private/reader.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/xml/private/reader.ss b/collects/xml/private/reader.ss index 44622b64d6..5d97ae02d8 100644 --- a/collects/xml/private/reader.ss +++ b/collects/xml/private/reader.ss @@ -65,7 +65,7 @@ 1 (- (location-offset (pos)) 1))) "expected root element - received ~a" - start)])) + (if (pcdata? start) (pcdata-string start) start))])) ;; read-misc : Input-port (-> Location) -> (listof Misc) Token (define (read-misc in pos)