From d0b0b31399fe00b877b5dfefc2e3563aa6f257ed Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 11 Sep 2011 21:35:15 +0200 Subject: Guile: capturing output to standard error We were just ignoring it so far! --- scheme/guile/geiser/evaluation.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'scheme/guile') 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) -- cgit v1.2.3