random.mersenne-twister: simplify seed-random.

2016-07-11 14:00:15 -07:00 · 2016-07-11 14:00:15 -07:00 · 800d643c2d
parent 6b12e2e3bc
commit 800d643c2d
1 changed files with 1 additions and 3 deletions
--- a/basis/random/mersenne-twister/mersenne-twister.factor
+++ b/basis/random/mersenne-twister/mersenne-twister.factor
@ -64,9 +64,7 @@ PRIVATE>

 M: mersenne-twister seed-random
    init-mt-seq >>seq
-    [ mt-generate ]
-    [ 0 >>i drop ]
-    [ ] tri ;
+    dup mt-generate ;

 M: mersenne-twister random-32*
    [ next-index ]