From ef3656aea866e1983ebdd9786fe0eb7b038459cf Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 20 May 2009 20:06:05 -0500
Subject: [PATCH] try to fall back on AES if RSA isn't found
---
basis/random/windows/windows.factor | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/basis/random/windows/windows.factor b/basis/random/windows/windows.factor
index c8e08c9abe..aa9404fbb2 100644
--- a/basis/random/windows/windows.factor
+++ b/basis/random/windows/windows.factor
@@ -60,9 +60,13 @@ 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
+ [
+ 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_ENH_RSA_AES_PROV
- ! PROV_RSA_AES <windows-rng> secure-random-generator set-global
] "random.windows" add-init-hook