builder: more tweaks

extra/builder/builder.factor

@@ -228,15 +228,7 @@ SYMBOL: report
   [ builder-test try-process ]
   [
     report get
-      [
+      [ "Builder test error" write nl ]
-        "Builder test error" write nl
-        "../load-everything-log" exists?
-          [ "../load-everything-log" <file-reader> contents write nl ]
-        when
-        "../test-all-log" exists?
-          [ "../test-all-log" <file-reader> contents write nl ]
-        when
-      ]
     with-stream*
     throw
   ]

extra/builder/test/test.factor

@@ -15,20 +15,6 @@ IN: builder.test
     [ bootstrap-time get . ]
   with-stream ;
 
-! : try-everything* ( -- vocabs ) try-everything [ first vocab-link-name ] map ;
-
-! : do-load ( -- )
-!   [
-!     "../load-everything-log" <file-writer>
-!       [ try-everything keys ]
-!     with-stream
-!   ] "../load-everything-time" log-runtime
-!   dup empty?
-!     [ drop ]
-!     [ "../load-everything-vocabs" log-object ]
-!   if
-!   "../load-everything-log" delete-file ;
-
 : do-load ( -- )
   [ try-everything keys ] "../load-everything-time" log-runtime
   dup empty?
@@ -36,25 +22,6 @@ IN: builder.test
     [ "../load-everything-vocabs" log-object ]
   if ;
 
-! : do-tests ( -- )
-!   run-all-tests keys
-!   dup empty?
-!   [ drop ]
-!   [ "../failing-tests" log-object ]
-!   if ;
-
-! : do-tests ( -- )
-!   [
-!     "../test-all-log" <file-writer>
-!       [ run-all-tests keys ]
-!     with-stream
-!   ] "../test-all-time" log-runtime
-!   dup empty?
-!     [ drop ]
-!     [ "../test-all-vocabs" log-object ]
-!   if
-!   "../test-all-log" delete-file ;
-
 : do-tests ( -- )
   [ run-all-tests keys ] "../test-all-time" log-runtime
   dup empty?
@@ -62,11 +29,6 @@ IN: builder.test
     [ "../test-all-vocabs" log-object ]
   if ;
 
-! : do-all ( -- )
-!   record-bootstrap-time
-!   [ do-load ]  [ drop ] recover
-!   [ do-tests ] [ drop ] recover ;
-
 : do-all ( -- )
   record-bootstrap-time
   do-load