diff --git a/basis/random/backend/authors.txt b/basis/random/backend/authors.txt deleted file mode 100644 index b4bd0e7b35..0000000000 --- a/basis/random/backend/authors.txt +++ /dev/null @@ -1 +0,0 @@ -Doug Coleman \ No newline at end of file diff --git a/basis/random/backend/backend.factor b/basis/random/backend/backend.factor deleted file mode 100644 index eaed73f421..0000000000 --- a/basis/random/backend/backend.factor +++ /dev/null @@ -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 diff --git a/basis/random/mersenne-twister/mersenne-twister.factor b/basis/random/mersenne-twister/mersenne-twister.factor index 0c1683a8bc..a0e40e5c38 100644 --- a/basis/random/mersenne-twister/mersenne-twister.factor +++ b/basis/random/mersenne-twister/mersenne-twister.factor @@ -76,3 +76,8 @@ M: mersenne-twister random-32* ( mt -- r ) : default-mersenne-twister ( -- mersenne-twister ) [ 32 random-bits ] with-system-random ; + +[ + default-mersenne-twister random-generator set-global +] "bootstrap.random" add-init-hook + diff --git a/basis/random/random.factor b/basis/random/random.factor index 06be2778e7..197c232404 100755 --- a/basis/random/random.factor +++ b/basis/random/random.factor @@ -112,4 +112,4 @@ PRIVATE> { [ os unix? ] [ "random.unix" require ] } } cond -"random.backend" require +"random.mersenne-twister" require