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

Print messages as benchmarks are run

db4
Slava Pestov 2008-12-10 01:12:08 -06:00
parent 06353b3442
commit eb654e948e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/benchmark/benchmark.factor
View File

@ -6,8 +6,10 @@ continuations debugger math ;
IN: benchmark IN: benchmark
: run-benchmark ( vocab -- result ) : run-benchmark ( vocab -- result )
[ "=== " write vocab-name print flush ] [
[ [ require ] [ [ run ] benchmark ] bi ] curry [ [ require ] [ [ run ] benchmark ] bi ] curry
[ error. f ] recover ; [ error. f ] recover
] bi ;
: run-benchmarks ( -- assoc ) : run-benchmarks ( -- assoc )
"benchmark" all-child-vocabs-seq "benchmark" all-child-vocabs-seq