bootstrap.stage2: Factor out 'print-time'

diff --git a/basis/bootstrap/stage2.factor b/basis/bootstrap/stage2.factor
index 67c6c9487d0ca24297b06663d1a932e308d649d9..d25394e978ba5122f6425aa4684b59e06bec64cf 100644 (file)
--- a/basis/bootstrap/stage2.factor
+++ b/basis/bootstrap/stage2.factor
@@ -32,18 +32,15 @@ SYMBOL: bootstrap-time
 : count-words ( pred -- )
     all-words swap count number>string write ;
 
-: print-report ( -- )
-    core-bootstrap-time get
+: print-time ( time -- )
     1000 /i
     60 /mod swap
-    "Core bootstrap completed in " write number>string write
-    " minutes and " write number>string write " seconds." print
+    number>string write
+    " minutes and " write number>string write " seconds." print ;
 
-    bootstrap-time get
-    1000 /i
-    60 /mod swap
-    "Bootstrap completed in " write number>string write
-    " minutes and " write number>string write " seconds." print
+: print-report ( -- )
+    "Core bootstrap completed in " write core-bootstrap-time get print-time
+    "Bootstrap completed in "      write bootstrap-time      get print-time
 
     [ compiled>> ] count-words " compiled words" print
     [ symbol? ] count-words " symbol words" print