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 | d3df979d3e02bc68c36a9b243881a3ad638e3af9 (patch) | |
| tree | 4cbd7547539515dc73b140423d60bb63e616545d /scheme | |
| parent | 81766b3043a4f14a777affe5bc0b76109ae8ea0f (diff) | |
| download | geiser-chez-d3df979d3e02bc68c36a9b243881a3ad638e3af9.tar.gz geiser-chez-d3df979d3e02bc68c36a9b243881a3ad638e3af9.tar.bz2 | |
Guile: unbreaking evaluation.
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/guile/geiser/evaluation.scm | 17 |
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 () |