io.launcher: fix stack effects.

diff --git a/basis/io/launcher/launcher.factor b/basis/io/launcher/launcher.factor
index b457a3401341c1b03f0abea9b0a8a0ace134ce4a..c93309177de20879ef7675860af4c731c09f9628 100755 (executable)
--- a/basis/io/launcher/launcher.factor
+++ b/basis/io/launcher/launcher.factor
@@ -213,11 +213,11 @@ PRIVATE>
 : <process-reader> ( desc encoding -- stream )
     (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
     dup wait-for-process ; inline
 
-: with-process-reader ( ... desc encoding quot: ( ... -- ... ) -- ... )
+: with-process-reader ( desc encoding quot -- )
     with-process-reader* check-success ; inline
 
 <PRIVATE
@@ -239,11 +239,11 @@ PRIVATE>
 : <process-writer> ( desc encoding -- stream )
     (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
     dup wait-for-process ; inline
 
-: with-process-writer ( ... desc encoding quot: ( ... -- ... ) -- ... )
+: with-process-writer ( desc encoding quot -- )
     with-process-writer* check-success ; inline
 
 <PRIVATE
@@ -270,11 +270,11 @@ PRIVATE>
 : <process-stream> ( desc encoding -- stream )
     (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
     dup wait-for-process ; inline
 
-: with-process-stream ( ... desc encoding quot: ( ... -- ... ) -- ... )
+: with-process-stream ( desc encoding quot -- )
     with-process-stream* check-success ; inline
 
 ERROR: output-process-error { output string } { process process } ;