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

View File

@ -36,7 +36,7 @@ SYMBOL: bootstrap-time
all-words swap count number>string write ; inline all-words swap count number>string write ; inline
: print-time ( us -- ) : print-time ( us -- )
1000000 /i 1000 /i
60 /mod swap 60 /mod swap
number>string write number>string write
" minutes and " write number>string write " seconds." print ; " minutes and " write number>string write " seconds." print ;
@ -59,7 +59,7 @@ SYMBOL: bootstrap-time
[ [
! We time bootstrap ! We time bootstrap
system-micros 1000 /i system-micros
default-image-name "output-image" set-global default-image-name "output-image" set-global
@ -84,14 +84,14 @@ SYMBOL: bootstrap-time
load-components load-components
system-micros 1000 /i over - core-bootstrap-time set-global system-micros over - core-bootstrap-time set-global
run-bootstrap-init run-bootstrap-init
f error set-global f error set-global
f error-continuation 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 print-report
"deploy-vocab" get [ "deploy-vocab" get [