From 35de8bbb671876c5745d7ebc5a939ab406c15e98 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 22 Dec 2006 17:44:44 +0000 Subject: [PATCH] fixed bug in, and improved error message reporting for doc.txt files svn: r5168 original commit: 77536bfe0fbb13ed6df35ac2beaad5a2671135f6 --- 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 index b82b467c..9c1de8e7 100644 --- 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))