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

View File

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