From cce611b5d3f24273d22eafd66544457a79a0bf6b Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Fri, 1 May 2009 13:20:39 +0200
Subject: PLT: Enter loaded module after C-cC-l.

---
 scheme/plt/geiser/eval.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'scheme/plt')

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))
-- 
cgit v1.2.3