fix load errors on windows

db4
Doug Coleman 2008-03-27 05:51:48 -05:00
parent 7185683663
commit 89cacd416b
2 changed files with 6 additions and 5 deletions

View File

@ -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

View File

@ -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