summaryrefslogtreecommitdiff
path: root/scheme
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
commitd3df979d3e02bc68c36a9b243881a3ad638e3af9 (patch)
tree4cbd7547539515dc73b140423d60bb63e616545d /scheme
parent81766b3043a4f14a777affe5bc0b76109ae8ea0f (diff)
downloadgeiser-guile-d3df979d3e02bc68c36a9b243881a3ad638e3af9.tar.gz
geiser-guile-d3df979d3e02bc68c36a9b243881a3ad638e3af9.tar.bz2
Guile: unbreaking evaluation.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/guile/geiser/evaluation.scm17
1 files changed, 9 insertions, 8 deletions
diff --git a/scheme/guile/geiser/evaluation.scm b/scheme/guile/geiser/evaluation.scm
index c2147a1..cbc088e 100644
--- a/scheme/guile/geiser/evaluation.scm
+++ b/scheme/guile/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 ()