From 48562e6e48d930b34e66aae63d7036369608c872 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 14 Feb 2014 18:48:25 -0800
Subject: [PATCH] random.mersenne-twister: Don't use system-random-generator to
 initialize Mersenne Twister. If there is no system random generator, startup
 can fail.

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

diff --git a/basis/random/mersenne-twister/mersenne-twister.factor b/basis/random/mersenne-twister/mersenne-twister.factor
index f0841c6d08..b0af9525ba 100644
--- a/basis/random/mersenne-twister/mersenne-twister.factor
+++ b/basis/random/mersenne-twister/mersenne-twister.factor
@@ -4,7 +4,7 @@
 ! http://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 ;
+specialized-arrays system ;
 SPECIALIZED-ARRAY: uint
 IN: random.mersenne-twister
 
@@ -74,7 +74,7 @@ M: mersenne-twister random-32*
     [ [ 1 + ] change-i drop ] tri ;
 
 : default-mersenne-twister ( -- mersenne-twister )
-    [ random-32 ] with-system-random <mersenne-twister> ;
+    nano-count <mersenne-twister> ;
 
 [
     default-mersenne-twister random-generator set-global