don't clean up windows rng yet, needs refactoring first

diff --git a/basis/random/windows/windows.factor b/basis/random/windows/windows.factor
index c948fc01e44c78089313d71db3127b5f90909883..a518a6e39af523a994b275fa98045ca7cff6fae2 100644 (file)
--- 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> 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