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