use radix literals

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

diff --git a/extra/benchmark/mt/mt.factor b/extra/benchmark/mt/mt.factor
index e586a9e9adefb6a2f5200560bcbdbc60d7d34652..13f0ad4069187b3c24eb7a0bdbb840c080b7dc8c 100644 (file)
--- a/extra/benchmark/mt/mt.factor
+++ b/extra/benchmark/mt/mt.factor
@@ -4,8 +4,8 @@ USING: fry kernel math random random.mersenne-twister ;
 IN: benchmark.mt
 
 : mt-benchmark ( n -- )
-    >fixnum HEX: 533d <mersenne-twister> '[ _ random-32* drop ] times ;
+    >fixnum 0x533d <mersenne-twister> '[ _ random-32* drop ] times ;
 
-: mt-main ( -- ) 100000000 mt-benchmark ;
+: mt-main ( -- ) 10000000 mt-benchmark ;
 
 MAIN: mt-main