From a3fb51d8d2937323fdd077f144c2478020bacf8f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 25 Dec 2006 06:41:29 +0000 Subject: [PATCH] try to fix quiet.ss svn: r5180 --- collects/tests/mzscheme/quiet.ss | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/collects/tests/mzscheme/quiet.ss b/collects/tests/mzscheme/quiet.ss index 616b5b19f8..b5789408bc 100644 --- a/collects/tests/mzscheme/quiet.ss +++ b/collects/tests/mzscheme/quiet.ss @@ -14,16 +14,16 @@ [cust (current-custodian)] [orig-thread (current-thread)]) (namespace-set-variable-value! 'real-error-port err) + (namespace-set-variable-value! 'last-error #f) ;; we're loading this for the first time: ;; -- make real errors show ;; (can't override current-exception-handler alone, since the escape ;; handler is overridden to avoid running off, so use the first to ;; save the data and the second to show it) - (let ([last-error #f]) - (uncaught-exception-handler (lambda (e) - (when (eq? (current-thread) orig-thread) - (set! last-error e)) - (errh e)))) + (uncaught-exception-handler (lambda (e) + (when (eq? (current-thread) orig-thread) + (set! last-error e)) + (errh e))) ;; -- set up a timeout (thread (lambda () (sleep 600) @@ -41,9 +41,9 @@ (parameterize ([current-output-port p] [current-error-port p]) (load-relative quiet-load))) (default-continuation-prompt-tag) - (lambda () + (lambda (thunk) (when last-error - (fprintf err "ERROR: ~a\n" + (fprintf real-error-port "ERROR: ~a\n" (if (exn? last-error) (exn-message last-error) last-error)) (exit 2)))) (report-errs #t))