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

closing stderr in zo-test

Browse Source 
original commit: 8b195d1c3c
This commit is contained in:
Blake Johnson 2010-07-27 13:41:58 -06:00 committed by Jay McCarthy
parent d8dae45321
commit b662bdef4c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/compiler/zo-test.rkt
View File

@ -109,7 +109,7 @@ exec racket -t "$0" -- -s -t 60 -v -R $*
(when (debugging?) (when (debugging?)
(printf "~a\n" p)) (printf "~a\n" p))
(define-values (define-values
(sp stdout stdin _stderr) (sp stdout stdin stderr)
(subprocess #f #f #f racket-path (path->string zo-test-worker-path) p)) (subprocess #f #f #f racket-path (path->string zo-test-worker-path) p))
(define r (define r
(dynamic-wind (dynamic-wind
@ -118,6 +118,7 @@ exec racket -t "$0" -- -s -t 60 -v -R $*
(read stdout)) (read stdout))
(λ () (λ ()
(close-input-port stdout) (close-input-port stdout)
(close-input-port stderr)
(close-output-port stdin) (close-output-port stdin)
(subprocess-kill sp #t)))) (subprocess-kill sp #t))))
(channel-put from-worker-ch (cons p r)) (channel-put from-worker-ch (cons p r))