From 50732a297b9919eb92bf2c4c3a48cd20a5dfa052 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Fri, 9 May 2008 20:30:49 -0500 Subject: [PATCH] builder.report: Put a maximum size on the boot-log in the report --- extra/builder/report/report.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/builder/report/report.factor b/extra/builder/report/report.factor index 101d259f7c..2ac8482a76 100644 --- a/extra/builder/report/report.factor +++ b/extra/builder/report/report.factor @@ -15,8 +15,8 @@ IN: builder.report "Build directory: " write build-dir print "git id: " write "git-id" eval-file print nl - status-vm get f = [ "compile-log" cat "vm compile error" throw ] when - status-boot get f = [ "boot-log" cat "Boot error" throw ] when + status-vm get f = [ "compile-log" cat "vm compile error" throw ] when + status-boot get f = [ "boot-log" 100 cat-n "Boot error" throw ] when status-test get f = [ "test-log" 100 cat-n "Test error" throw ] when "Boot time: " write "boot-time" eval-file milli-seconds>time print