better error for pcdata case

svn: r6069
2007-04-28 16:42:33 +00:00 · 2007-04-28 16:42:33 +00:00 · b969371faa
commit b969371faa
parent a6ad897a70
1 changed files with 1 additions and 1 deletions
--- 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)