random.mersenne-twister: simplify seed-random.

diff --git a/basis/random/mersenne-twister/mersenne-twister.factor b/basis/random/mersenne-twister/mersenne-twister.factor
index 5544a66a5efb083a4af8e960219d00afd48e3f69..e93a26401388633ff8acd0907a03f3d9bcc2b362 100644 (file)
--- 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 ]