diff --git a/basis/bootstrap/stage2.factor b/basis/bootstrap/stage2.factor index a4cd58c58a..bd8f532660 100644 --- a/basis/bootstrap/stage2.factor +++ b/basis/bootstrap/stage2.factor @@ -36,7 +36,7 @@ SYMBOL: bootstrap-time all-words swap count number>string write ; inline : print-time ( us -- ) - 1000000 /i + 1000 /i 60 /mod swap number>string write " minutes and " write number>string write " seconds." print ; @@ -59,7 +59,7 @@ SYMBOL: bootstrap-time [ ! We time bootstrap - system-micros 1000 /i + system-micros default-image-name "output-image" set-global @@ -84,14 +84,14 @@ SYMBOL: bootstrap-time load-components - system-micros 1000 /i over - core-bootstrap-time set-global + system-micros over - core-bootstrap-time set-global run-bootstrap-init f error set-global f error-continuation set-global - system-micros 1000 /i swap - bootstrap-time set-global + system-micros swap - bootstrap-time set-global print-report "deploy-vocab" get [