diff options
Diffstat (limited to 'scheme/plt/geiser')
| -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 |