mason.test: benchmark files were read in wrong order

db4
Slava Pestov 2009-04-17 20:59:11 -05:00
parent 394a4ec315
commit 3586736b34
1 changed files with 2 additions and 2 deletions

View File

@ -45,10 +45,10 @@ M: method-body word-vocabulary "method-generic" word-prop word-vocabulary ;
: do-benchmarks ( -- )
run-benchmarks
[
[ benchmarks-file to-file ] [
[ keys benchmark-error-vocabs-file to-file ]
[ benchmark-error-messages-file utf8 [ benchmark-errors. ] with-file-writer ] bi
] [ benchmarks-file to-file ] bi* ;
] bi* ;
: benchmark-ms ( quot -- ms )
benchmark 1000 /i ; inline