random.mersenne-twister: slightly faster random-32*

diff --git a/basis/random/mersenne-twister/mersenne-twister.factor b/basis/random/mersenne-twister/mersenne-twister.factor
index 5317b5a9f873f2e7c0d82477343c8f249cb0254a..217431b4af79ab8e319a7ef7488711ecc5b343f0 100644 (file)
--- a/basis/random/mersenne-twister/mersenne-twister.factor
+++ b/basis/random/mersenne-twister/mersenne-twister.factor
@@ -3,8 +3,8 @@
 ! mersenne twister based on
 ! https://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/MT2002/CODES/mt19937ar.c
 USING: accessors alien.c-types alien.data fry init kernel math
-math.bitwise namespaces random sequences sequences.private
-specialized-arrays system ;
+math.bitwise math.private namespaces random sequences
+sequences.private specialized-arrays system ;
 SPECIALIZED-ARRAY: uint
 IN: random.mersenne-twister
 
@@ -69,7 +69,7 @@ M: mersenne-twister seed-random
 M: mersenne-twister random-32*
     [ next-index ]
     [ seq>> nth-unsafe mt-temper ]
-    [ [ 1 + ] change-i drop ] tri ;
+    [ [ 1 fixnum+fast ] change-i drop ] tri ;
 
 : default-mersenne-twister ( -- mersenne-twister )
     nano-count <mersenne-twister> ;