revert loading sfmt by default

db4
Doug Coleman 2009-10-07 21:41:12 -05:00
parent 429dd933c7
commit 21c9da7c5f
4 changed files with 6 additions and 12 deletions

View File

@ -1 +0,0 @@
Doug Coleman

View File

@ -1,10 +0,0 @@
! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: cpu.x86.features init kernel namespaces random
random.mersenne-twister random.sfmt ;
IN: random.backend
[
sse2? [ default-sfmt ] [ default-mersenne-twister ] if
random-generator set-global
] "bootstrap.random" add-init-hook

View File

@ -76,3 +76,8 @@ M: mersenne-twister random-32* ( mt -- r )
: default-mersenne-twister ( -- mersenne-twister )
[ 32 random-bits ] with-system-random
<mersenne-twister> ;
[
default-mersenne-twister random-generator set-global
] "bootstrap.random" add-init-hook

View File

@ -112,4 +112,4 @@ PRIVATE>
{ [ os unix? ] [ "random.unix" require ] }
} cond
"random.backend" require
"random.mersenne-twister" require