diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-01 13:20:39 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-01 13:20:39 +0200 |
| commit | cce611b5d3f24273d22eafd66544457a79a0bf6b (patch) | |
| tree | 5a06d7b65a89d39fcadf7e2109f87b14732b7849 /scheme/plt/geiser | |
| parent | c4aef753ffe087961b9f078913724755d2ce0938 (diff) | |
| download | geiser-chez-cce611b5d3f24273d22eafd66544457a79a0bf6b.tar.gz geiser-chez-cce611b5d3f24273d22eafd66544457a79a0bf6b.tar.bz2 | |
PLT: Enter loaded module after C-cC-l.
Diffstat (limited to 'scheme/plt/geiser')
| -rw-r--r-- | scheme/plt/geiser/eval.ss | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scheme/plt/geiser/eval.ss b/scheme/plt/geiser/eval.ss index 49f75f1..55cfb6b 100644 --- a/scheme/plt/geiser/eval.ss +++ b/scheme/plt/geiser/eval.ss @@ -43,13 +43,13 @@ (define (load-module spec . port) (parameterize ((current-error-port (if (null? port) nowhere (car port)))) - (eval #`(enter! #,spec))) - (enter! #f)) + (eval #`(enter! #,spec)))) (define (ensure-namespace mod-spec) (letrec ((spec (ensure-spec mod-spec)) (handler (lambda (e) (load-module spec) + (enter! #f) (module->namespace spec)))) (if spec (with-handlers ((exn:fail:contract? handler)) |