[nongnu] elpa/geiser-racket cc2b8a3 126/191: Racket: fixing help when REPL is in a module

[Philip Kaludercic]

branch: elpa/geiser-racket
commit cc2b8a386fb1b8dce6744019a8583350306960f3
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    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)])