Fix launcher failure on *BSD

db4
Slava Pestov 2008-04-06 03:30:10 -05:00
parent cb5a260297
commit 4586200f83
1 changed files with 4 additions and 1 deletions
extra/io/unix/launcher

View File

@ -31,7 +31,10 @@ USE: unix
: redirect-fd ( oldfd fd -- )
2dup = [ 2drop ] [ dupd dup2 io-error close ] if ;
: reset-fd ( fd -- ) F_SETFL 0 fcntl io-error ;
: reset-fd ( fd -- )
#! We drop the error code because on *BSD, fcntl of
#! /dev/null fails.
F_SETFL 0 fcntl drop ;
: redirect-inherit ( obj mode fd -- )
2nip reset-fd ;