]> gitweb.factorcode.org Git - factor.git/commitdiff
bootstrap.stage2: fix bootstrap time reporting
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Thu, 19 Nov 2009 08:08:28 +0000 (02:08 -0600)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Thu, 19 Nov 2009 08:08:28 +0000 (02:08 -0600)
basis/bootstrap/stage2.factor

index 0ddcb58a4fa3c776859cf69e402c871caf510b1c..a4cd58c58a493c1a3146e734db026b82c653a931 100644 (file)
@@ -59,7 +59,7 @@ SYMBOL: bootstrap-time
 
 [
     ! We time bootstrap
-    system-micros
+    system-micros 1000 /i
 
     default-image-name "output-image" set-global
 
@@ -84,14 +84,14 @@ SYMBOL: bootstrap-time
 
     load-components
 
-    system-micros over - core-bootstrap-time set-global
+    system-micros 1000 /i over - core-bootstrap-time set-global
 
     run-bootstrap-init
 
     f error set-global
     f error-continuation set-global
 
-    system-micros swap - bootstrap-time set-global
+    system-micros 1000 /i swap - bootstrap-time set-global
     print-report
 
     "deploy-vocab" get [