steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/random/mersenne-twister/mersenne-twister.factor
View File

@ -4,7 +4,7 @@
! http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/MT2002/CODES/mt19937ar.c ! http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/MT2002/CODES/mt19937ar.c
USING: arrays kernel math namespaces sequences system init 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 ; random.backend ;
IN: random.mersenne-twister IN: random.mersenne-twister

9
extra/random/windows/windows.factor
View File

@ -1,5 +1,6 @@
USING: accessors alien.c-types byte-arrays continuations 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 IN: random.windows
TUPLE: windows-crypto-context handle ; TUPLE: windows-crypto-context handle ;
@ -26,6 +27,6 @@ M: windows-cryptographic-rng random-bytes* ( tuple n -- bytes )
CryptAcquireContextW win32-error=0/f *void* CryptAcquireContextW win32-error=0/f *void*
<windows-crypto-context> ; <windows-crypto-context> ;
[ ! [
windows-aes-context secure-random-generator set-global ! windows-aes-context secure-random-generator set-global
] "random.windows" add-init-hook ! ] "random.windows" add-init-hook