summaryrefslogtreecommitdiff
path: root/scheme/racket
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2013-04-15 10:43:07 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-04-15 10:43:07 +0200
commit82f909d80a55f0dcf8639b094351f5e61f3449e6 (patch)
tree5eee3492ffb25bae52e9daa212ee4cb4e8f5ea9b /scheme/racket
parent5aec661ebb415b474b5bc01a8a295fc7c2639f8a (diff)
downloadgeiser-chez-82f909d80a55f0dcf8639b094351f5e61f3449e6.tar.gz
geiser-chez-82f909d80a55f0dcf8639b094351f5e61f3449e6.tar.bz2
Racket: fixing help when REPL is in a module
The evaluation of the help form must happen in a good enough namespace.
Diffstat (limited to 'scheme/racket')
-rw-r--r--scheme/racket/geiser/autodoc.rkt6
1 files changed, 4 insertions, 2 deletions
diff --git a/scheme/racket/geiser/autodoc.rkt b/scheme/racket/geiser/autodoc.rkt
index 021a5fd..08455e5 100644
--- a/scheme/racket/geiser/autodoc.rkt
+++ b/scheme/racket/geiser/autodoc.rkt
@@ -22,11 +22,13 @@
geiser/modules
geiser/locations)
+(define here (current-namespace))
+
(define (get-help symbol mod)
(if (eq? symbol mod)
(get-mod-help mod)
- (with-handlers ([exn? (lambda (_) (eval `(help ,symbol)))])
- (eval `(help ,symbol #:from ,(ensure-module-spec mod))))))
+ (with-handlers ([exn? (lambda (_) (eval `(help ,symbol) here))])
+ (eval `(help ,symbol #:from ,(ensure-module-spec mod)) here))))
(define (get-mod-help mod)
(let-values ([(ids syns) (module-identifiers mod)])