factor: trim using lists

[factor.git] / extra / benchmark / mt / mt.factor

diff --git a/extra/benchmark/mt/mt.factor b/extra/benchmark/mt/mt.factor
index 13f0ad4069187b3c24eb7a0bdbb840c080b7dc8c..d7b83cb328ed8d36a8dd282ddf4fe25cf66aa31a 100644 (file)
--- a/extra/benchmark/mt/mt.factor
+++ b/extra/benchmark/mt/mt.factor
@@ -1,11 +1,11 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: fry kernel math random random.mersenne-twister ;
+USING: kernel math random random.mersenne-twister ;
 IN: benchmark.mt
 
-: mt-benchmark ( n -- )
+: mt-bench ( n -- )
     >fixnum 0x533d <mersenne-twister> '[ _ random-32* drop ] times ;
 
-: mt-main ( -- ) 10000000 mt-benchmark ;
+: mt-benchmark ( -- ) 10000000 mt-bench ;
 
-MAIN: mt-main
+MAIN: mt-benchmark