]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/benchmark/mt/mt.factor
use radix literals
[factor.git] / extra / benchmark / mt / mt.factor
index b2f907ba68e6bc2975d5d49b45ad679946904c7c..13f0ad4069187b3c24eb7a0bdbb840c080b7dc8c 100644 (file)
@@ -4,7 +4,7 @@ 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 ( -- ) 10000000 mt-benchmark ;