From c40c3a9884715718df332bcf69711a9cad5c3870 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 15 Oct 2009 19:42:48 +0000 Subject: [PATCH] DrDr properties and stderr change svn: r16329 --- collects/tests/mzscheme/quiet.ss | 2 ++ collects/tests/mzscheme/testing.ss | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/quiet.ss b/collects/tests/mzscheme/quiet.ss index 1956da38fb..065ab0fa4f 100644 --- a/collects/tests/mzscheme/quiet.ss +++ b/collects/tests/mzscheme/quiet.ss @@ -10,12 +10,14 @@ (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 1f29258597..1abf741f24 100644 --- a/collects/tests/mzscheme/testing.ss +++ b/collects/tests/mzscheme/testing.ss @@ -53,9 +53,10 @@ 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 real-error-port (current-error-port))]) + [err (or fake-error-port (current-output-port))]) (display msg err) (flush-output err)))