From 800d643c2d2347ef80362fde197e0f71a5263980 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 11 Jul 2016 14:00:15 -0700
Subject: [PATCH] random.mersenne-twister: simplify seed-random.

---
 basis/random/mersenne-twister/mersenne-twister.factor | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/basis/random/mersenne-twister/mersenne-twister.factor b/basis/random/mersenne-twister/mersenne-twister.factor
index 5544a66a5e..e93a264013 100644
--- 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 ]