From e81bbf3b906466407234e15d89c24c8b77f37678 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 30 Oct 2009 02:54:45 +0000 Subject: [PATCH] undo the fake-error-output change svn: r16461 --- collects/tests/mzscheme/quiet.ss | 2 -- collects/tests/mzscheme/testing.ss | 3 +-- 2 files changed, 1 insertion(+), 4 deletions(-) diff --git a/collects/tests/mzscheme/quiet.ss b/collects/tests/mzscheme/quiet.ss index 065ab0fa4f..1956da38fb 100644 --- a/collects/tests/mzscheme/quiet.ss +++ b/collects/tests/mzscheme/quiet.ss @@ -10,14 +10,12 @@ (namespace-variable-value 'real-error-port #f (lambda () (let ([err (current-error-port)] - [out (current-output-port)] [exit (exit-handler)] [errh (uncaught-exception-handler)] [esch (error-escape-handler)] [cust (current-custodian)] [orig-thread (current-thread)]) (namespace-set-variable-value! 'real-error-port err) - (namespace-set-variable-value! 'fake-error-port out) (namespace-set-variable-value! 'last-error #f) ;; we're loading this for the first time: ;; make real errors show by remembering the exn diff --git a/collects/tests/mzscheme/testing.ss b/collects/tests/mzscheme/testing.ss index 1abf741f24..1f29258597 100644 --- a/collects/tests/mzscheme/testing.ss +++ b/collects/tests/mzscheme/testing.ss @@ -53,10 +53,9 @@ transcript. ;; used for quiet testing (quiet.ss) to really show something (defvar real-error-port #f) -(defvar fake-error-port #f) (define (eprintf* fmt . args) (let ([msg (apply format fmt args)] - [err (or fake-error-port (current-output-port))]) + [err (or real-error-port (current-error-port))]) (display msg err) (flush-output err)))