From 2557acc034bbcdeb45120e09eb002bcf39541eaf Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 19 Feb 2008 15:32:53 -0600
Subject: [PATCH] builder: compress image after build

---
 extra/builder/builder.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/extra/builder/builder.factor b/extra/builder/builder.factor
index bc65035747..50d66f0a96 100644
--- a/extra/builder/builder.factor
+++ b/extra/builder/builder.factor
@@ -181,10 +181,14 @@ SYMBOL: builder-recipients
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+: compress-image ( -- )
+  { "bzip2" my-boot-image-name } to-strings run-process drop ;
+
 : build ( -- )
   [ (build) ] [ drop ] recover
   [ send-builder-email ] [ drop "not sending mail" . ] recover
-  ".." cd { "rm" "-rf" "factor" } run-process drop ;
+  ".." cd { "rm" "-rf" "factor" } run-process drop
+  [ compress-image ] [ drop ] recover ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!