From 4586200f83841bbac572c30301883e762818f08d Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 6 Apr 2008 03:30:10 -0500 Subject: [PATCH] Fix launcher failure on *BSD --- extra/io/unix/launcher/launcher.factor | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/extra/io/unix/launcher/launcher.factor b/extra/io/unix/launcher/launcher.factor index 2736764665..82852f6311 100755 --- a/extra/io/unix/launcher/launcher.factor +++ b/extra/io/unix/launcher/launcher.factor @@ -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 ;