basis/bootstrap/random/random.factor

   1 USING: vocabs.loader sequences system
   2 random random.mersenne-twister combinators init
   3 namespaces random ;
   4 IN: bootstrap.random
   5
   6 "random.mersenne-twister" require
   7
   8 {
   9     { [ os windows? ] [ "random.windows" require ] }
  10     { [ os unix? ] [ "random.unix" require ] }
  11 } cond
  12
  13 [
  14     [ 32 random-bits ] with-system-random
  15     <mersenne-twister> random-generator set-global
  16 ] "bootstrap.random" add-init-hook