commit de104776963dd83522c4caba4af572ede520029d parent ae1bfa56c0ede6cc55d081d1c1314407e0b6a3d9 Author: Robby Findler <robby@racket-lang.org> Date: Fri, 22 Dec 2006 17:43:54 +0000 fixed bug in, and improved error message reporting for doc.txt files svn: r5167 original commit: 6d4fcabd68941ecc50c66f283186aed7361597fd Diffstat:
| M | 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 @@ -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)))]