steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix FD leak

db4
Slava Pestov 2008-01-24 23:48:28 -04:00
parent 00d2122a4c
commit 62f076d0c3
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/io/unix/launcher/launcher.factor
View File

@ -42,11 +42,15 @@ MEMO: 'arguments' ( -- parser )
: assoc>env ( assoc -- env ) : assoc>env ( assoc -- env )
[ "=" swap 3append ] { } assoc>map ; [ "=" swap 3append ] { } assoc>map ;
: (redirect)
>r file-mode open dup io-error dup
r> dup2 io-error close drop ;
: redirect ( obj mode fd -- ) : redirect ( obj mode fd -- )
{ {
{ [ pick not ] [ 3drop ] } { [ pick not ] [ 3drop ] }
{ [ pick +closed+ eq? ] [ close 3drop ] } { [ pick +closed+ eq? ] [ close 3drop ] }
{ [ t ] [ >r file-mode open dup io-error r> dup2 io-error ] } { [ t ] [ (redirect) ] }
} cond ; } cond ;
: setup-redirection ( -- ) : setup-redirection ( -- )