suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

when searching for docs, follow module chains only through .zo, and bail out when files are unavailable or inconsistent

Browse Source 
svn: r9589

original commit: 119c09a27e47c0a85d87c3f04688d48381469518
This commit is contained in:
Matthew Flatt 2008-05-02 13:21:03 +00:00
parent bc815b0a14
commit 1032bb867b
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/scribble/search.ss
View File

@ -123,8 +123,12 @@
rmp rmp
(lambda () (lambda ()
(let-values ([(valss stxess) (let-values ([(valss stxess)
(with-handlers ([exn:fail?
(lambda (exn)
(values null null))])
(module-compiled-exports (module-compiled-exports
(get-module-code (resolved-module-path-name rmp)))]) (get-module-code (resolved-module-path-name rmp)
#:choose (lambda (src zo so) 'zo))))])
(let ([t (let ([t
;; Merge the two association lists: ;; Merge the two association lists:
(let loop ([base valss] (let loop ([base valss]
@ -164,8 +168,14 @@
0))) 0)))
(cadr a)) (cadr a))
rqueue)) rqueue))
(begin
;; A dead end may not be our fault: the files could
;; have changed in inconsistent ways. So just say #f
;; for now.
#;
(error 'find-scheme-tag (error 'find-scheme-tag
"dead end when looking for binding source: ~e" "dead end when looking for binding source: ~e"
id)))) id)
#f))))
;; Can't get the module source, so continue with queue: ;; Can't get the module source, so continue with queue:
(loop queue rqueue)))))))]))))))) (loop queue rqueue)))))))])))))))