Launcher fix
parent
e55c674a2b
commit
6d2ded44f2
|
@ -31,7 +31,7 @@ USE: unix
|
||||||
] when* ;
|
] when* ;
|
||||||
|
|
||||||
: redirect-fd ( oldfd fd -- )
|
: redirect-fd ( oldfd fd -- )
|
||||||
2dup = [ 2drop ] [ dupd dup2 io-error close-file ] if ;
|
2dup = [ 2drop ] [ dup2 io-error ] if ;
|
||||||
|
|
||||||
: reset-fd ( fd -- )
|
: reset-fd ( fd -- )
|
||||||
#! We drop the error code because on *BSD, fcntl of
|
#! We drop the error code because on *BSD, fcntl of
|
||||||
|
|
Loading…
Reference in New Issue