benchmark: fix bug

db4
Eduardo Cavazos 2008-02-17 08:01:43 -06:00
parent c4ba816fc9
commit 949c7f9a0a
1 changed files with 3 additions and 5 deletions

View File

@ -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 [