suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

undo the fake-error-output change

Browse Source 
svn: r16461
This commit is contained in:
Eli Barzilay 2009-10-30 02:54:45 +00:00
parent 8061c07a9d
commit e81bbf3b90
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/quiet.ss
View File

@ -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

3
collects/tests/mzscheme/testing.ss
View File

@ -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)))