fixed bug in, and improved error message reporting for doc.txt files

svn: r5168

original commit: 77536bfe0fbb13ed6df35ac2beaad5a2671135f6
This commit is contained in:
Robby Findler 2006-12-22 17:44:44 +00:00
parent de10477696
commit 35de8bbb67

View File

@ -210,7 +210,9 @@
(with-handlers ([exn:fail:read?
(lambda (x)
(fprintf (current-error-port)
"found > line in ~s that did not parse properly\n first-line: ~a\n exn-msg: ~a\n"
"found > on line ~a in ~s that did not parse properly\n first-line: ~a\n exn-msg: ~a\n"
(let-values ([(line col pos) (port-next-location p)])
line)
(path->string (apply build-path doc))
(read-line (peeking-input-port p))
(exn-message x))