diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-04-15 10:43:07 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-04-15 10:43:07 +0200 |
| commit | 82f909d80a55f0dcf8639b094351f5e61f3449e6 (patch) | |
| tree | 5eee3492ffb25bae52e9daa212ee4cb4e8f5ea9b | |
| parent | 5aec661ebb415b474b5bc01a8a295fc7c2639f8a (diff) | |
| download | geiser-guile-82f909d80a55f0dcf8639b094351f5e61f3449e6.tar.gz geiser-guile-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.
| -rw-r--r-- | scheme/racket/geiser/autodoc.rkt | 6 |
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)]) |