From 949c7f9a0a3140fbc4f5de19300e056dde70e88a Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Sun, 17 Feb 2008 08:01:43 -0600
Subject: [PATCH] benchmark: fix bug
---
extra/benchmark/benchmark.factor | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/extra/benchmark/benchmark.factor b/extra/benchmark/benchmark.factor
index 3a19d0a6e1..01e7d2c78e 100755
--- a/extra/benchmark/benchmark.factor
+++ b/extra/benchmark/benchmark.factor
@@ -6,13 +6,11 @@ continuations debugger ;
IN: benchmark
: run-benchmark ( vocab -- result )
- "=== Benchmark " write dup vocab-name print flush
- [ dup require [ run ] benchmark ] [ error. drop f f ] recover 2array
- dup . ;
+ [ [ run ] benchmark ] [ error. drop f f ] recover 2array ;
: run-benchmarks ( -- assoc )
- "benchmark"
- all-child-vocabs values concat [ dup run-benchmark ] { } map>assoc ;
+ "benchmark" all-child-vocabs values concat [ vocab-name ] map
+ [ dup run-benchmark ] { } map>assoc ;
: benchmarks. ( assoc -- )
standard-table-style [