From 146bdbccbbd12609c165017dac84ddd3bb854f5b Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 27 Mar 2008 17:43:00 -0500
Subject: [PATCH] fix rng on windows

---
 extra/random/windows/windows.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/extra/random/windows/windows.factor b/extra/random/windows/windows.factor
index cd69105e65..65426d4277 100644
--- a/extra/random/windows/windows.factor
+++ b/extra/random/windows/windows.factor
@@ -46,9 +46,9 @@ M: windows-rng random-bytes* ( n tuple -- bytes )
     MS_DEF_PROV
     PROV_RSA_FULL <windows-rng> insecure-random-generator set-global
 
-    ! MS_STRONG_PROV
-    ! PROV_RSA_FULL <windows-rng> secure-random-generator set-global
+    MS_STRONG_PROV
+    PROV_RSA_FULL <windows-rng> secure-random-generator set-global
 
-    MS_ENH_RSA_AES_PROV
-    PROV_RSA_AES <windows-rng> secure-random-generator set-global
+    ! MS_ENH_RSA_AES_PROV
+    ! PROV_RSA_AES <windows-rng> secure-random-generator set-global
 ] "random.windows" add-init-hook