From d22c0281df0445155de4c2828c1317e9e26411e6 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 23 Nov 2008 03:10:32 -0600
Subject: [PATCH] Print runtime as a float
---
basis/tools/time/time.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/tools/time/time.factor b/basis/tools/time/time.factor
index f5187230de..b66c1cb73c 100644
--- a/basis/tools/time/time.factor
+++ b/basis/tools/time/time.factor
@@ -9,7 +9,7 @@ IN: tools.time
: time. ( data -- )
unclip
- "==== RUNNING TIME" print nl pprint " us" print nl
+ "==== RUNNING TIME" print nl 1000000 /f pprint " seconds" print nl
4 cut*
"==== GARBAGE COLLECTION" print nl
[