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

Change stderr output to logging, to please drdr

Browse Source
This commit is contained in:
Kevin Tew 2011-09-06 11:13:07 -06:00
parent 9b91d37032
commit f44337e28e
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/tests/racket/place-channel-fd2.rkt
View File

@ -24,17 +24,19 @@
(flush-output p)) (flush-output p))
(sleep 3) (sleep 3)
(with-handlers ([exn? (lambda (e) (eprintf "Child Read Exception Caught ~e\n" e))]) (with-handlers ([exn? (lambda (e) (eprintf "Child Read1 Exception Caught ~e\n" e))])
(fprintf (current-error-port) "ChildRead1 ~a\n" (read))) (define r (read))
(with-handlers ([exn? (lambda (e) (eprintf "Child Read Exception Caught ~e\n" e))]) (log-debug (format "Child Read1 ~a\n" r)))
(fprintf (current-error-port) "ChildRead2 ~a\n" (read))) (with-handlers ([exn? (lambda (e) (eprintf "Child Read2 Exception Caught ~e\n" e))])
(define r (read))
(log-debug (format "Child Read2 ~a\n" r)))
;(close-input-port) ;(close-input-port)
(sleep 3) (sleep 3)
(with-handlers ([exn? (lambda (e) (eprintf "Child Write StdOut Exception Caught ~e\n" e))]) (with-handlers ([exn? (lambda (e) (eprintf "Child Write StdOut Exception Caught ~e\n" e))])
(write-flush "ByeO")) (write-flush "ByeO"))
(with-handlers ([exn? (lambda (e) (fprintf "Child Write StdErr Exception Caught ~e\n" e))]) (with-handlers ([exn? (lambda (e) (eprintf "Child Write StdErr Exception Caught ~e\n" e))])
(write-flush "ByeE" (current-error-port))) (log-debug "ByeE"))
END END
))) )))