mason.test: benchmark files were read in wrong order

2009-04-17 20:59:11 -05:00 · 2009-04-17 20:59:11 -05:00 · 3586736b34
parent 394a4ec315
commit 3586736b34
1 changed files with 2 additions and 2 deletions
--- a/extra/mason/test/test.factor
+++ b/extra/mason/test/test.factor
@ -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