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 +++--- scheme/plt/geiser/modules.ss | 1 + 2 files changed, 4 insertions(+), 3 deletions(-) (limited to 'scheme/plt/geiser') 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)) diff --git a/scheme/plt/geiser/modules.ss b/scheme/plt/geiser/modules.ss index eb5357f..1818ecd 100644 --- a/scheme/plt/geiser/modules.ss +++ b/scheme/plt/geiser/modules.ss @@ -12,6 +12,7 @@ #lang scheme (provide load-module + ensure-module-spec module-spec->namespace namespace->module-path-name module-path-name->name -- cgit v1.2.3