summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-07-09 04:45:10 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-07-09 04:45:10 +0200
commit6d3f98be0ac937670619947c2329b0d63cdc97dd (patch)
tree85de81d0491a72ff7bb0bc081e2a0e57b8965558
parent67905aae390b21e4f27250b79d43184c833256a4 (diff)
downloadgeiser-guile-6d3f98be0ac937670619947c2329b0d63cdc97dd.tar.gz
geiser-guile-6d3f98be0ac937670619947c2329b0d63cdc97dd.tar.bz2
Guile: unbreaking evaluation.
-rw-r--r--geiser/evaluation.scm17
1 files 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 ()