From 50453302094d23dcd763ee998c2f3b032a90615f Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 25 Feb 2008 16:27:31 -0600
Subject: [PATCH] builder: 	fix bug (report not send on error) 
 factor-binary is now "./factor"

---
 extra/builder/builder.factor | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/extra/builder/builder.factor b/extra/builder/builder.factor
index b123b9c428..4cd2613e8d 100644
--- a/extra/builder/builder.factor
+++ b/extra/builder/builder.factor
@@ -65,15 +65,14 @@ IN: builder
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: factor-binary ( -- name )
-  os
-  { { "macosx" [ "./Factor.app/Contents/MacOS/factor" ] }
-    { "winnt"  [ "./factor-nt.exe" ] }
-    [ drop       "./factor" ] }
-  case ;
+! : factor-binary ( -- name )
+!   os "macosx" =
+!     [ "./Factor.app/Contents/MacOS/factor" ]
+!     [ "./factor" ]
+!   if ;
 
 : bootstrap-cmd ( -- cmd )
-  { factor-binary { "-i=" my-boot-image-name } "-no-user-init" } to-strings ;
+  { "./factor" { "-i=" my-boot-image-name } "-no-user-init" } to-strings ;
 
 : bootstrap ( -- desc )
   <process*>
@@ -85,7 +84,7 @@ IN: builder
   >desc ;
 
 : builder-test-cmd ( -- cmd )
-  { factor-binary "-run=builder.test" } to-strings ;
+  { "./factor" "-run=builder.test" } to-strings ;
 
 : builder-test ( -- desc )
   <process*>
@@ -178,7 +177,7 @@ SYMBOL: builder-recipients
 
 : build ( -- )
   [ (build) ] [ drop ] recover
-  maybe-release
+  build-status get [ maybe-release ] when
   [ send-builder-email ] [ drop "not sending mail" . ] recover
   ".." cd { "rm" "-rf" "factor" } run-process drop
   [ compress-image ] [ drop ] recover ;