summaryrefslogtreecommitdiff
path: root/scheme/plt
diff options
context:
space:
mode:
Diffstat (limited to 'scheme/plt')
-rw-r--r--scheme/plt/geiser/autodoc.ss6
-rw-r--r--scheme/plt/geiser/modules.ss1
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