From 8d86b51e76a89971dbb50011aa7155b631dd7c37 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Fri, 15 Feb 2008 05:54:19 -0600
Subject: [PATCH] builder: do builds-check in build-loop

---
 extra/builder/builder.factor | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/extra/builder/builder.factor b/extra/builder/builder.factor
index d502d0dfbd..e6e1c4d94f 100644
--- a/extra/builder/builder.factor
+++ b/extra/builder/builder.factor
@@ -97,8 +97,6 @@ SYMBOL: build-status
 
   build-status off
 
-  builds-check
-
   enter-build-dir
 
   "report" [
@@ -160,7 +158,7 @@ SYMBOL: builder-recipients
 
 : build ( -- )
   [ (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 ;
 
 : build-loop ( -- )
+  builds-check
   [
     "/builds/factor" cd
     updates-available?