From de104776963dd83522c4caba4af572ede520029d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 22 Dec 2006 17:43:54 +0000 Subject: [PATCH] fixed bug in, and improved error message reporting for doc.txt files svn: r5167 original commit: 6d4fcabd68941ecc50c66f283186aed7361597fd --- collects/help/private/search.ss | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/collects/help/private/search.ss b/collects/help/private/search.ss index 66faffed..b82b467c 100644 --- a/collects/help/private/search.ss +++ b/collects/help/private/search.ss @@ -200,13 +200,19 @@ (cond [m (let/ec k - (let* ([peek-port (peeking-input-port p)] + (let* ([peek-port (let-values ([(line col pos) (port-next-location p)]) + (let ([pp (peeking-input-port p)]) + (port-count-lines! pp) + (let ([rp (relocate-input-port pp line col pos)]) + (port-count-lines! rp) + rp)))] [entry (parameterize ([read-accept-bar-quote #f]) (with-handlers ([exn:fail:read? (lambda (x) (fprintf (current-error-port) - "Found > line in ~s that did not parse properly: ~s\n" + "found > line in ~s that did not parse properly\n first-line: ~a\n exn-msg: ~a\n" (path->string (apply build-path doc)) + (read-line (peeking-input-port p)) (exn-message x)) (k null))]) (read peek-port)))]