From 5f89fb1313f9bbbd222c5240450e4b29fa9d8574 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Tue, 15 May 2001 00:51:06 +0000 Subject: [PATCH] =?UTF-8?q?(error-catching-repl):=20Call=20the=20E=20("eva?= =?UTF-8?q?l'er")=20procedure=20via=20call-with-values=20and=20call=20the?= =?UTF-8?q?=20P=20("printer")=20for=20each=20produced=20value.=20=20Thanks?= =?UTF-8?q?=20to=20Matthias=20K=C3=B6ppe!?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ice-9/boot-9.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 7134743db..1f87908fa 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -2375,7 +2375,10 @@ ;; (display "No backtrace available.\n"))) (define (error-catching-repl r e p) - (error-catching-loop (lambda () (p (e (r)))))) + (error-catching-loop + (lambda () + (call-with-values (lambda () (e (r))) + (lambda the-values (for-each p the-values)))))) (define (gc-run-time) (cdr (assq 'gc-time-taken (gc-stats))))