From 200e949973177d6ccfb8bb2c993039b2c74a9a75 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 19 Feb 2008 14:37:33 -0600
Subject: [PATCH] builder: remove test-log if successful
---
extra/builder/builder.factor | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/extra/builder/builder.factor b/extra/builder/builder.factor
index fbff4a40e3..bc65035747 100644
--- a/extra/builder/builder.factor
+++ b/extra/builder/builder.factor
@@ -133,14 +133,14 @@ SYMBOL: build-status
make-vm [ "vm compile error" print "../compile-log" cat ] run-or-bail
- ! [ retrieve-image ] [ "Image download error" print throw ] recover
-
copy-image
bootstrap [ "Bootstrap error" print "../boot-log" cat ] run-or-bail
builder-test [ "Test error" print "../test-log" cat ] run-or-bail
+ "../test-log" delete-file
+
"Boot time: " write "../boot-time" eval-file milli-seconds>time print
"Load time: " write "../load-time" eval-file milli-seconds>time print
"Test time: " write "../test-time" eval-file milli-seconds>time print nl