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 | d0b0b31399fe00b877b5dfefc2e3563aa6f257ed (patch) | |
| tree | 10a7e9c821892a012cf70b499ca4f7211eba4547 /scheme | |
| parent | ffd2cea60f6e7d8d0cf9a1fda6912b2003b92855 (diff) | |
| download | geiser-chez-d0b0b31399fe00b877b5dfefc2e3563aa6f257ed.tar.gz geiser-chez-d0b0b31399fe00b877b5dfefc2e3563aa6f257ed.tar.bz2 | |
Guile: capturing output to standard error
We were just ignoring it so far!
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/guile/geiser/evaluation.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scheme/guile/geiser/evaluation.scm b/scheme/guile/geiser/evaluation.scm index e4cf4b5..5562382 100644 --- a/scheme/guile/geiser/evaluation.scm +++ b/scheme/guile/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) |