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