   = not ;
 
 : build-loop ( -- )
+  builds-check
   [
     "/builds/factor" cd
     updates-available?


: build ( -- )
  [ (build) ] [ drop ] recover
  [ send-builder-email ] [ "not sending mail" . ] recover ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



  build-status off

  enter-build-dir

  "report" [
