     [ file>> ] map prune natural-sort summary-file to-file
     errors details-file utf8 [ errors. ] with-file-writer ;
 
-: do-compile-errors ( -- )
-    compiler-errors get values
-    compiler-errors-file
-    compiler-error-messages-file
-    do-step ;
-
 : do-tests ( -- )
     test-all test-failures get
     test-all-vocabs-file

        [ benchmark-error-messages-file utf8 [ benchmark-errors. ] with-file-writer ] bi
    ] bi* ;

: benchmark-ms ( quot -- ms )
    benchmark 1000 /i ; inline


    ".." [
        bootstrap-time get boot-time-file to-file
        check-boot-image
        [ do-load ] benchmark-ms load-time-file to-file
        [ generate-help ] benchmark-ms html-help-time-file to-file
        [ do-tests ] benchmark-ms test-time-file to-file
        [ do-help-lint ] benchmark-ms help-lint-time-file to-file
        [ do-benchmarks ] benchmark-ms benchmark-time-file to-file
        do-compile-errors
    ] with-directory ;

MAIN: do-all