From 5d713118a24a8766ea788288c1b47c96cf9bf5a6 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 3 Feb 2010 01:03:20 +0100 Subject: PLT: Better help lookups. --- scheme/plt/geiser/autodoc.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'scheme/plt/geiser/autodoc.ss') diff --git a/scheme/plt/geiser/autodoc.ss b/scheme/plt/geiser/autodoc.ss index 6dd877c..65e095f 100644 --- a/scheme/plt/geiser/autodoc.ss +++ b/scheme/plt/geiser/autodoc.ss @@ -16,9 +16,9 @@ (require geiser/utils geiser/modules geiser/locations scheme/help) (define (get-help symbol mod) - (with-handlers ((exn? (lambda (e) - (eval `(help ,symbol #:from ,mod))))) - (eval `(help ,symbol)))) + (with-handlers ((exn? (lambda (_) + (eval `(help ,symbol))))) + (eval `(help ,symbol #:from ,(ensure-module-spec mod))))) (define (autodoc ids) (if (not (list? ids)) -- cgit v1.2.3