[nongnu] elpa/geiser-guile 6d3f98b 085/284: Guile: unbreaking evaluation.

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 6d3f98be0ac937670619947c2329b0d63cdc97dd
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

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

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 ()