From 6d3f98be0ac937670619947c2329b0d63cdc97dd Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Thu, 9 Jul 2009 04:45:10 +0200
Subject: Guile: unbreaking evaluation.

---
 geiser/evaluation.scm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

(limited to 'geiser/evaluation.scm')

diff --git a/geiser/evaluation.scm b/geiser/evaluation.scm
index c2147a1..cbc088e 100644
--- a/geiser/evaluation.scm
+++ b/geiser/evaluation.scm
@@ -56,14 +56,15 @@
          (error #f)
          (ev (lambda ()
                (save-module-excursion
-                (set-current-module module)
-                (set! result (call-with-values
-                                 (lambda () (compile form))
-                               (lambda vs
-                                 (map (lambda (v)
-                                        (with-output-to-string
-                                          (lambda () (write v))))
-                                      vs))))))))
+                (lambda ()
+                  (set-current-module module)
+                  (set! result (call-with-values
+                                   (lambda () (compile form))
+                                 (lambda vs
+                                   (map (lambda (v)
+                                          (with-output-to-string
+                                            (lambda () (write v))))
+                                        vs)))))))))
     (let ((output
            (with-output-to-string
              (lambda ()
-- 
cgit v1.2.3