summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-01 13:20:39 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-01 13:20:39 +0200
commitcce611b5d3f24273d22eafd66544457a79a0bf6b (patch)
tree5a06d7b65a89d39fcadf7e2109f87b14732b7849 /scheme
parentc4aef753ffe087961b9f078913724755d2ce0938 (diff)
downloadgeiser-guile-cce611b5d3f24273d22eafd66544457a79a0bf6b.tar.gz
geiser-guile-cce611b5d3f24273d22eafd66544457a79a0bf6b.tar.bz2
PLT: Enter loaded module after C-cC-l.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/plt/geiser/eval.ss4
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))