fix load errors on windows
parent
7185683663
commit
89cacd416b
|
@ -4,7 +4,7 @@
|
|||
! http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/MT2002/CODES/mt19937ar.c
|
||||
|
||||
USING: arrays kernel math namespaces sequences system init
|
||||
accessors math.ranges combinators.cleave random new-effects
|
||||
accessors math.ranges combinators.cleave new-effects
|
||||
random.backend ;
|
||||
IN: random.mersenne-twister
|
||||
|
||||
|
|
|
@ -1,5 +1,6 @@
|
|||
USING: accessors alien.c-types byte-arrays continuations
|
||||
kernel random windows windows.advapi32 init namespaces random ;
|
||||
kernel windows windows.advapi32 init namespaces
|
||||
random.backend ;
|
||||
IN: random.windows
|
||||
|
||||
TUPLE: windows-crypto-context handle ;
|
||||
|
@ -26,6 +27,6 @@ M: windows-cryptographic-rng random-bytes* ( tuple n -- bytes )
|
|||
CryptAcquireContextW win32-error=0/f *void*
|
||||
<windows-crypto-context> ;
|
||||
|
||||
[
|
||||
windows-aes-context secure-random-generator set-global
|
||||
] "random.windows" add-init-hook
|
||||
! [
|
||||
! windows-aes-context secure-random-generator set-global
|
||||
! ] "random.windows" add-init-hook
|
||||
|
|
Loading…
Reference in New Issue