summaryrefslogtreecommitdiff
path: root/scheme/plt/geiser/eval.ss
diff options
context:
space:
mode:
Diffstat (limited to 'scheme/plt/geiser/eval.ss')
-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))