builder: do builds-check in build-loop
parent
50b38b0ae2
commit
8d86b51e76
|
@ -97,8 +97,6 @@ SYMBOL: build-status
|
||||||
|
|
||||||
build-status off
|
build-status off
|
||||||
|
|
||||||
builds-check
|
|
||||||
|
|
||||||
enter-build-dir
|
enter-build-dir
|
||||||
|
|
||||||
"report" [
|
"report" [
|
||||||
|
@ -160,7 +158,7 @@ SYMBOL: builder-recipients
|
||||||
|
|
||||||
: build ( -- )
|
: build ( -- )
|
||||||
[ (build) ] [ drop ] recover
|
[ (build) ] [ drop ] recover
|
||||||
[ send-builder-email ] [ "not sending mail" . ] recover ;
|
[ send-builder-email ] [ drop "not sending mail" . ] recover ;
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
@ -180,6 +178,7 @@ SYMBOL: builder-recipients
|
||||||
= not ;
|
= not ;
|
||||||
|
|
||||||
: build-loop ( -- )
|
: build-loop ( -- )
|
||||||
|
builds-check
|
||||||
[
|
[
|
||||||
"/builds/factor" cd
|
"/builds/factor" cd
|
||||||
updates-available?
|
updates-available?
|
||||||
|
|
Loading…
Reference in New Issue