print correct time on bootstrap

db4
Doug Coleman 2009-11-19 03:22:43 -06:00
parent a3cb03548c
commit 35695b6ff8
1 changed files with 4 additions and 4 deletions
basis/bootstrap

View File

@ -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 [