From 472e77cb004b4989710e711fc10d5e6bc6af349a Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 30 Nov 2009 16:59:40 -0600 Subject: [PATCH] don't clean up windows rng yet, needs refactoring first --- basis/random/windows/windows.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/random/windows/windows.factor b/basis/random/windows/windows.factor index c948fc01e4..a518a6e39a 100644 --- a/basis/random/windows/windows.factor +++ b/basis/random/windows/windows.factor @@ -4,7 +4,7 @@ locals namespaces random windows.advapi32 windows.errors windows.kernel32 math.bitwise ; IN: random.windows -TUPLE: windows-rng provider type ; +TUPLE: windows-rng < disposable provider type ; C: windows-rng TUPLE: windows-crypto-context handle ; @@ -69,7 +69,7 @@ M: windows-rng random-bytes* ( n tuple -- bytes ) [ [ - system-random-generator get-global &dispose drop - secure-random-generator get-global &dispose drop + ! system-random-generator get-global &dispose drop + ! secure-random-generator get-global &dispose drop ] with-destructors ] "random.windows" add-shutdown-hook