steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bootstrap.stage2: Factor out 'print-time'

db4
Eduardo Cavazos 2008-11-10 21:27:48 -06:00
parent 78d9452b7e
commit 2489ac5205
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/bootstrap/stage2.factor
View File

@ -32,18 +32,15 @@ SYMBOL: bootstrap-time
: count-words ( pred -- ) : count-words ( pred -- )
all-words swap count number>string write ; all-words swap count number>string write ;
: print-report ( -- ) : print-time ( time -- )
core-bootstrap-time get
1000 /i 1000 /i
60 /mod swap 60 /mod swap
"Core bootstrap completed in " write number>string write number>string write
" minutes and " write number>string write " seconds." print " minutes and " write number>string write " seconds." print ;
bootstrap-time get : print-report ( -- )
1000 /i "Core bootstrap completed in " write core-bootstrap-time get print-time
60 /mod swap "Bootstrap completed in " write bootstrap-time get print-time
"Bootstrap completed in " write number>string write
" minutes and " write number>string write " seconds." print
[ compiled>> ] count-words " compiled words" print [ compiled>> ] count-words " compiled words" print
[ symbol? ] count-words " symbol words" print [ symbol? ] count-words " symbol words" print