From 4f042037761f69855e880a48b13cdd43dc214ba3 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 12 Feb 2009 22:41:21 +0000 Subject: [PATCH] make find-help treat a lexical binding as missing svn: r13537 --- collects/help/help-utils.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/help/help-utils.ss b/collects/help/help-utils.ss index 0388c69432..96890f4f52 100644 --- a/collects/help/help-utils.ss +++ b/collects/help/help-utils.ss @@ -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)