From 95e1ea0135325b81858c7cb9cf6f4861f7a4696a Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@shill.local>
Date: Fri, 20 Nov 2009 18:20:45 -0600
Subject: [PATCH] mason.report: better benchmark timings

---
 extra/mason/report/report.factor | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/extra/mason/report/report.factor b/extra/mason/report/report.factor
index 5d0efc9328..c5567c9c97 100644
--- a/extra/mason/report/report.factor
+++ b/extra/mason/report/report.factor
@@ -86,9 +86,16 @@ IN: mason.report
 
 : benchmarks-table ( assoc -- xml )
     [
-        1000000 /f
+        1,000,000,000 /f
         [XML <tr><td><-></td><td><-></td></tr> XML]
-    ] { } assoc>map [XML <h2>Benchmarks</h2> <table><-></table> XML] ;
+    ] { } assoc>map
+    [XML
+        <h2>Benchmarks</h2>
+        <table>
+            <tr><th>Benchmark</th><th>Time (seconds)</th></tr>
+            <->
+        </table>
+    XML] ;
 
 : successful-report ( -- )
     [