From 94902076152c7acec92f8926bfa7d1360b2748a2 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 24 Nov 2008 05:46:43 -0600 Subject: [PATCH] Print benchmark runtimes in seconds --- extra/benchmark/benchmark.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/benchmark/benchmark.factor b/extra/benchmark/benchmark.factor index 5a8e7595b5..a8c6e2a2ac 100755 --- a/extra/benchmark/benchmark.factor +++ b/extra/benchmark/benchmark.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: kernel vocabs vocabs.loader tools.time tools.vocabs arrays assocs io.styles io help.markup prettyprint sequences -continuations debugger ; +continuations debugger math ; IN: benchmark : run-benchmark ( vocab -- result ) @@ -17,12 +17,12 @@ IN: benchmark standard-table-style [ [ [ "Benchmark" write ] with-cell - [ "Time (ms)" write ] with-cell + [ "Time (seconds)" write ] with-cell ] with-row [ [ [ [ 1array $vocab-link ] with-cell ] - [ pprint-cell ] bi* + [ 1000000 /f pprint-cell ] bi* ] with-row ] assoc-each ] tabular-output ;