branch: elpa/geiser-racket
commit cc2b8a386fb1b8dce6744019a8583350306960f3
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
Racket: fixing help when REPL is in a module
The evaluation of the help form must happen in a good enough
namespace.
---
geiser/autodoc.rkt | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/geiser/autodoc.rkt b/geiser/autodoc.rkt
index 021a5fd..08455e5 100644
--- a/geiser/autodoc.rkt
+++ b/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)])
