bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 35de8bbb671876c5745d7ebc5a939ab406c15e98
parent de104776963dd83522c4caba4af572ede520029d
Author: Robby Findler <robby@racket-lang.org>
Date:   Fri, 22 Dec 2006 17:44:44 +0000

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

svn: r5168

original commit: 77536bfe0fbb13ed6df35ac2beaad5a2671135f6

Diffstat:
M
collects/help/private/search.ss
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/collects/help/private/search.ss b/collects/help/private/search.ss
@@ -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))