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

DrDr properties and stderr change

Browse Source 
svn: r16329
This commit is contained in:
Jay McCarthy 2009-10-15 19:42:48 +00:00
parent 9545330d53
commit c40c3a9884
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,12 +10,14 @@
(namespace-variable-value 'real-error-port #f (namespace-variable-value 'real-error-port #f
(lambda () (lambda ()
(let ([err (current-error-port)] (let ([err (current-error-port)]
[out (current-output-port)]
[exit (exit-handler)] [exit (exit-handler)]
[errh (uncaught-exception-handler)] [errh (uncaught-exception-handler)]
[esch (error-escape-handler)] [esch (error-escape-handler)]
[cust (current-custodian)] [cust (current-custodian)]
[orig-thread (current-thread)]) [orig-thread (current-thread)])
(namespace-set-variable-value! 'real-error-port err) (namespace-set-variable-value! 'real-error-port err)
(namespace-set-variable-value! 'fake-error-port out)
(namespace-set-variable-value! 'last-error #f) (namespace-set-variable-value! 'last-error #f)
;; we're loading this for the first time: ;; we're loading this for the first time:
;; make real errors show by remembering the exn ;; make real errors show by remembering the exn

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

@ -53,9 +53,10 @@ transcript.
;; used for quiet testing (quiet.ss) to really show something ;; used for quiet testing (quiet.ss) to really show something
(defvar real-error-port #f) (defvar real-error-port #f)
(defvar fake-error-port #f)
(define (eprintf* fmt . args) (define (eprintf* fmt . args)
(let ([msg (apply format 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) (display msg err)
(flush-output err))) (flush-output err)))