Fix Unix launcher

2008-02-03 15:55:59 -06:00 · 2008-02-03 15:55:59 -06:00 · f4244e7caf
parent 8c0e1bc7b2
commit f4244e7caf
1 changed files with 2 additions and 2 deletions
--- a/extra/io/unix/launcher/launcher.factor
+++ b/extra/io/unix/launcher/launcher.factor
@ -57,8 +57,8 @@ MEMO: 'arguments' ( -- parser )
 : setup-redirection ( -- )
    +stdin+ get read-flags 0 redirect
    +stdout+ get write-flags 1 redirect
-    +stderr+ get dup +stdout+ get eq?
-    [ 1 2 dup2 ] [ write-flags 2 redirect ] if ;
+    +stderr+ get dup +stdout+ eq?
+    [ drop 1 2 dup2 io-error ] [ write-flags 2 redirect ] if ;

 : spawn-process ( -- )
    [