make find-help treat a lexical binding as missing

svn: r13537
This commit is contained in:
Eli Barzilay 2009-02-12 22:41:21 +00:00
parent 80c8ac3b5f
commit 4f04203776

View File

@ -33,17 +33,19 @@
(define (find-help id)
(let* ([lb (identifier-label-binding id)]
[b (and (not lb) (identifier-binding id))]
[b (or lb b)]
[b (and (not (eq? 'lexical b)) b)]
[xref (load-collections-xref
(lambda ()
(printf "Loading help index...\n")))])
(if (or lb b)
(let ([tag (xref-binding->definition-tag xref (or lb b) (if lb #f 0))])
(if b
(let ([tag (xref-binding->definition-tag xref b (if lb #f 0))])
(if tag
(go-to-tag xref tag)
(error 'help
"no documentation found for: ~e provided by: ~a"
(syntax-e id)
(module-path-index-resolve (caddr (or lb b))))))
(module-path-index-resolve (caddr b)))))
(search-for-exports xref (syntax-e id)))))
(define (search-for-exports xref sym)