Merge branch 'master' of factorcode.org:/git/factor
commit
c261141e00
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue