try to fall back on AES if RSA isn't found

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