]> gitweb.factorcode.org Git - factor.git/commitdiff
mason.test: benchmark files were read in wrong order
authorSlava Pestov <slava@shill.internal.stack-effects.com>
Sat, 18 Apr 2009 01:59:11 +0000 (20:59 -0500)
committerSlava Pestov <slava@shill.internal.stack-effects.com>
Sat, 18 Apr 2009 01:59:11 +0000 (20:59 -0500)
extra/mason/test/test.factor

index 88ccf93942e8155a0f994fef851c85db4d1621f0..912fbaa17a5b0460f087f03d8f888d293eaafc51 100644 (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