From 57d38b1dd0dcf04edc562307440f9e5cce14f764 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 20 May 2009 20:08:26 -0500
Subject: [PATCH] better factoring

---
 basis/random/windows/windows.factor | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/basis/random/windows/windows.factor b/basis/random/windows/windows.factor
index aa9404fbb2..6dce078d67 100644
--- a/basis/random/windows/windows.factor
+++ b/basis/random/windows/windows.factor
@@ -60,13 +60,8 @@ M: windows-rng random-bytes* ( n tuple -- bytes )
     MS_DEF_PROV
     PROV_RSA_FULL <windows-rng> system-random-generator set-global
 
-    [
-        MS_STRONG_PROV
-        PROV_RSA_FULL <windows-rng> secure-random-generator set-global
-    ] [
-        drop
-        MS_ENH_RSA_AES_PROV
-        PROV_RSA_AES <windows-rng> secure-random-generator set-global
-    ] recover
+    [ MS_STRONG_PROV PROV_RSA_FULL <windows-rng> ]
+    [ drop MS_ENH_RSA_AES_PROV PROV_RSA_AES <windows-rng> ] recover
+    secure-random-generator set-global
 
 ] "random.windows" add-init-hook