diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-02-03 01:03:20 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-02-03 01:03:20 +0100 |
| commit | 5d713118a24a8766ea788288c1b47c96cf9bf5a6 (patch) | |
| tree | 9c45559bc8c650eabfdfe9b248bef99b8c04ff54 /scheme | |
| parent | 0eaf8e78241b8bac9698ab3694d8060ac113fd56 (diff) | |
| download | geiser-guile-5d713118a24a8766ea788288c1b47c96cf9bf5a6.tar.gz geiser-guile-5d713118a24a8766ea788288c1b47c96cf9bf5a6.tar.bz2 | |
PLT: Better help lookups.
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/plt/geiser/autodoc.ss | 6 | ||||
| -rw-r--r-- | scheme/plt/geiser/modules.ss | 1 |
2 files changed, 4 insertions, 3 deletions
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 |