extra/bootstrap/random/random.factor

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