diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2011-09-11 21:35:15 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2011-09-11 21:35:15 +0200 |
| commit | 4c022191fac48d9f5d96cfafeda6aba59da627de (patch) | |
| tree | 2a63f4cd36ec809d8d941a3f923ff45d73749910 /geiser | |
| parent | 55efcccbde8a1ebbf30471b90c17744119979748 (diff) | |
| download | geiser-guile-4c022191fac48d9f5d96cfafeda6aba59da627de.tar.gz geiser-guile-4c022191fac48d9f5d96cfafeda6aba59da627de.tar.bz2 | |
Guile: capturing output to standard error
We were just ignoring it so far!
Diffstat (limited to 'geiser')
| -rw-r--r-- | geiser/evaluation.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/geiser/evaluation.scm b/geiser/evaluation.scm index e4cf4b5..5562382 100644 --- a/geiser/evaluation.scm +++ b/geiser/evaluation.scm @@ -60,7 +60,8 @@ (lambda () (with-fluids ((*current-warning-port* (current-output-port)) (*current-warning-prefix* "")) - (set! result (thunk))))))) + (with-error-to-port (current-output-port) + (lambda () (set! result (thunk))))))))) (write-result result output))) (define (ge:compile form module) |