suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

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

Browse Source 
svn: r5167

original commit: 6d4fcabd68941ecc50c66f283186aed7361597fd
This commit is contained in:
Robby Findler 2006-12-22 17:43:54 +00:00
parent ae1bfa56c0
commit de10477696
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/help/private/search.ss
View File

@ -200,13 +200,19 @@
(cond (cond
[m [m
(let/ec k (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]) [entry (parameterize ([read-accept-bar-quote #f])
(with-handlers ([exn:fail:read? (with-handlers ([exn:fail:read?
(lambda (x) (lambda (x)
(fprintf (current-error-port) (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)) (path->string (apply build-path doc))
(read-line (peeking-input-port p))
(exn-message x)) (exn-message x))
(k null))]) (k null))])
(read peek-port)))] (read peek-port)))]