Use new feature
parent
e7722c02b7
commit
d0e5b238e2
|
@ -16,8 +16,11 @@ IN: tools.deploy.backend
|
|||
: copy-lines ( stream -- )
|
||||
[ (copy-lines) ] with-disposal ;
|
||||
|
||||
: run-with-output ( descriptor -- )
|
||||
<process-stream>
|
||||
: run-with-output ( arguments -- )
|
||||
[
|
||||
+arguments+ set
|
||||
+stdout+ +stderr+ set
|
||||
] H{ } make-assoc <process-stream>
|
||||
dup duplex-stream-out dispose
|
||||
copy-lines ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue