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

io.launcher: fix stack effects.

db4
John Benediktsson 2014-12-30 17:23:24 -08:00
parent 3e7bc051d4
commit 3515a45b84
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/io/launcher/launcher.factor
View File

@ -213,11 +213,11 @@ PRIVATE>
: <process-reader> ( desc encoding -- stream ) : <process-reader> ( desc encoding -- stream )
(process-reader) drop ; inline (process-reader) drop ; inline
: with-process-reader* ( ... desc encoding quot: ( ... -- ... ) -- ... process status ) : with-process-reader* ( desc encoding quot -- process status )
[ (process-reader) ] dip '[ _ with-input-stream ] dip [ (process-reader) ] dip '[ _ with-input-stream ] dip
dup wait-for-process ; inline dup wait-for-process ; inline
: with-process-reader ( ... desc encoding quot: ( ... -- ... ) -- ... ) : with-process-reader ( desc encoding quot -- )
with-process-reader* check-success ; inline with-process-reader* check-success ; inline
<PRIVATE <PRIVATE
@ -239,11 +239,11 @@ PRIVATE>
: <process-writer> ( desc encoding -- stream ) : <process-writer> ( desc encoding -- stream )
(process-writer) drop ; inline (process-writer) drop ; inline
: with-process-writer* ( ... desc encoding quot: ( ... -- ... ) -- ... process status ) : with-process-writer* ( desc encoding quot -- process status )
[ (process-writer) ] dip '[ _ with-output-stream ] dip [ (process-writer) ] dip '[ _ with-output-stream ] dip
dup wait-for-process ; inline dup wait-for-process ; inline
: with-process-writer ( ... desc encoding quot: ( ... -- ... ) -- ... ) : with-process-writer ( desc encoding quot -- )
with-process-writer* check-success ; inline with-process-writer* check-success ; inline
<PRIVATE <PRIVATE
@ -270,11 +270,11 @@ PRIVATE>
: <process-stream> ( desc encoding -- stream ) : <process-stream> ( desc encoding -- stream )
(process-stream) drop ; inline (process-stream) drop ; inline
: with-process-stream* ( ... desc encoding quot: ( ... -- ... ) -- ... process status ) : with-process-stream* ( desc encoding quot -- process status )
[ (process-stream) ] dip '[ _ with-stream ] dip [ (process-stream) ] dip '[ _ with-stream ] dip
dup wait-for-process ; inline dup wait-for-process ; inline
: with-process-stream ( ... desc encoding quot: ( ... -- ... ) -- ... ) : with-process-stream ( desc encoding quot -- )
with-process-stream* check-success ; inline with-process-stream* check-success ; inline
ERROR: output-process-error { output string } { process process } ; ERROR: output-process-error { output string } { process process } ;