Fix Unix launcher
parent
8c0e1bc7b2
commit
f4244e7caf
|
@ -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 ( -- )
|
||||
[
|
||||
|
|
Loading…
Reference in New Issue