From 35695b6ff81f7bc92e0499fefbd7b9aea5ae59de Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 19 Nov 2009 03:22:43 -0600
Subject: [PATCH] print correct time on bootstrap
---
basis/bootstrap/stage2.factor | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/basis/bootstrap/stage2.factor b/basis/bootstrap/stage2.factor
index a4cd58c58a..bd8f532660 100644
--- a/basis/bootstrap/stage2.factor
+++ b/basis/bootstrap/stage2.factor
@@ -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 [