Merge branch 'master' of factorcode.org:/git/factor

release
Joe Groff 2010-04-15 11:27:54 -07:00
commit c261141e00
2 changed files with 2 additions and 3 deletions

View File

@ -36,8 +36,7 @@ FUNCTION: int execve ( c-string path, c-string* argv, c-string* envp ) ;
[ [ first ] [ ] bi ] dip exec-with-env ; [ [ first ] [ ] bi ] dip exec-with-env ;
: with-fork ( child parent -- ) : with-fork ( child parent -- )
[ [ fork-process dup zero? ] dip '[ drop @ ] ] dip [ fork-process ] 2dip if-zero ; inline
if ; inline
CONSTANT: SIGKILL 9 CONSTANT: SIGKILL 9
CONSTANT: SIGTERM 15 CONSTANT: SIGTERM 15

View File

@ -15,9 +15,9 @@ IN: mason
error. flush ; error. flush ;
: build-loop ( -- ) : build-loop ( -- )
notify-heartbeat
?prepare-build-machine ?prepare-build-machine
[ [
notify-heartbeat
[ [
builds/factor set-current-directory builds/factor set-current-directory
new-code-available? [ build ] when new-code-available? [ build ] when