diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-04 01:05:33 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-04 01:05:33 +0200 |
| commit | cdd90c3af5a1a0fcd206293e8c8cb584b575e4f0 (patch) | |
| tree | c38ee1af6ce65bf1a462b93142353c53493f96f4 /scheme/plt/geiser/eval.ss | |
| parent | 10fc0f3411cf838ee67e01df75fe8d84de367319 (diff) | |
| download | geiser-chez-cdd90c3af5a1a0fcd206293e8c8cb584b575e4f0.tar.gz geiser-chez-cdd90c3af5a1a0fcd206293e8c8cb584b575e4f0.tar.bz2 | |
PLT: autodoc (without argument positions).
Diffstat (limited to 'scheme/plt/geiser/eval.ss')
| -rw-r--r-- | scheme/plt/geiser/eval.ss | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/scheme/plt/geiser/eval.ss b/scheme/plt/geiser/eval.ss index 9c6534e..694802a 100644 --- a/scheme/plt/geiser/eval.ss +++ b/scheme/plt/geiser/eval.ss @@ -33,7 +33,7 @@ macroexpand make-repl-reader) -(require scheme/enter geiser/utils) +(require scheme/enter geiser/utils geiser/autodoc) (define last-result (void)) (define nowhere (open-output-nowhere)) @@ -85,6 +85,7 @@ (define (eval-in form spec) (set-last-result (void)) (with-handlers ((exn? set-last-error)) + (update-module-cache spec form) (call-with-values (lambda () (eval form (ensure-namespace spec))) set-last-result)) @@ -95,6 +96,7 @@ (define (load-file file) (with-handlers ((exn? set-last-error)) (let ((current-path (namespace->module-path-name (last-namespace)))) + (update-module-cache file) (set-last-result (string-append (with-output-to-string (lambda () |