diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-07-09 04:45:10 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-07-09 04:45:10 +0200 |
| commit | 6d3f98be0ac937670619947c2329b0d63cdc97dd (patch) | |
| tree | 85de81d0491a72ff7bb0bc081e2a0e57b8965558 | |
| parent | 67905aae390b21e4f27250b79d43184c833256a4 (diff) | |
| download | geiser-guile-6d3f98be0ac937670619947c2329b0d63cdc97dd.tar.gz geiser-guile-6d3f98be0ac937670619947c2329b0d63cdc97dd.tar.bz2 | |
Guile: unbreaking evaluation.
| -rw-r--r-- | geiser/evaluation.scm | 17 |
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 () |