summaryrefslogtreecommitdiff
path: root/scheme/plt/geiser
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-02-03 01:03:20 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-02-03 01:03:20 +0100
commit5d713118a24a8766ea788288c1b47c96cf9bf5a6 (patch)
tree9c45559bc8c650eabfdfe9b248bef99b8c04ff54 /scheme/plt/geiser
parent0eaf8e78241b8bac9698ab3694d8060ac113fd56 (diff)
downloadgeiser-chez-5d713118a24a8766ea788288c1b47c96cf9bf5a6.tar.gz
geiser-chez-5d713118a24a8766ea788288c1b47c96cf9bf5a6.tar.bz2
PLT: Better help lookups.
Diffstat (limited to 'scheme/plt/geiser')
-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