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


  build-status off

  builds-check

  enter-build-dir

  "report" [

  = not ;

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