steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2008-02-17 18:38:43 -06:00
parent de8b804abe 949c7f9a0a
commit b6eb4955b4
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/benchmark/benchmark.factor
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 [