steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use new feature

db4
Slava Pestov 2008-02-03 20:36:04 -06:00
parent e7722c02b7
commit d0e5b238e2
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/tools/deploy/backend/backend.factor
View File

@ -16,8 +16,11 @@ IN: tools.deploy.backend
: copy-lines ( stream -- ) : copy-lines ( stream -- )
[ (copy-lines) ] with-disposal ; [ (copy-lines) ] with-disposal ;
: run-with-output ( descriptor -- ) : run-with-output ( arguments -- )
<process-stream> [
+arguments+ set
+stdout+ +stderr+ set
] H{ } make-assoc <process-stream>
dup duplex-stream-out dispose dup duplex-stream-out dispose
copy-lines ; copy-lines ;