io.unix.launcher: Fix io bug which caused problems during bootstrap

2008-02-10 00:35:18 -06:00 · 2008-02-10 00:35:18 -06:00 · 72313d0b4f
parent bf2efa3ecc
commit 72313d0b4f
1 changed files with 1 additions and 1 deletions
--- a/extra/io/unix/launcher/launcher.factor
+++ b/extra/io/unix/launcher/launcher.factor
@ -49,7 +49,7 @@ MEMO: 'arguments' ( -- parser )

 : redirect ( obj mode fd -- )
    {
-        { [ pick not ] [ 3drop ] }
+        { [ pick not ] [ 2nip F_SETFL 0 fcntl io-error ] }
        { [ pick +closed+ eq? ] [ close 2drop ] }
        { [ pick string? ] [ (redirect) ] }
    } cond ;