original commit: ff85b842b3f17f956ad75d272570ca4328059bbf
This commit is contained in:
Matthew Flatt 2005-03-16 21:44:57 +00:00
parent b44c2dd378
commit 1e3fd3bb9a

View File

@ -85,7 +85,7 @@
exe args)])
(let ([so (streamify-out cout out #t)]
[si (streamify-in cin in #t void)]
[se (streamify-out cerr err #f)]
[se (streamify-out cerr err #t)]
[aport (lambda (x)
(and (port? x) x))])
(list (aport so)