From 89cacd416b3e6edb3c79ff6135cf3a8673b84340 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 27 Mar 2008 05:51:48 -0500 Subject: [PATCH] fix load errors on windows --- extra/random/mersenne-twister/mersenne-twister.factor | 2 +- extra/random/windows/windows.factor | 9 +++++---- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/extra/random/mersenne-twister/mersenne-twister.factor b/extra/random/mersenne-twister/mersenne-twister.factor index f43ef9f852..4eb93f2941 100755 --- a/extra/random/mersenne-twister/mersenne-twister.factor +++ b/extra/random/mersenne-twister/mersenne-twister.factor @@ -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 diff --git a/extra/random/windows/windows.factor b/extra/random/windows/windows.factor index 2b5caabfed..ef0d10059e 100644 --- a/extra/random/windows/windows.factor +++ b/extra/random/windows/windows.factor @@ -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-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