basis: ERROR: changes.

[factor.git] / basis / random / windows / windows.factor

diff --git a/basis/random/windows/windows.factor b/basis/random/windows/windows.factor
index bda828a7b57cef96b29f75783621e2a94659f18c..3b20527f5f388e46d5812ef6970678d82e8dc4ab 100755 (executable)
--- a/basis/random/windows/windows.factor
+++ b/basis/random/windows/windows.factor
@@ -31,7 +31,10 @@ ERROR: acquire-crypto-context-failed provider type error ;
 
 : attempt-crypto-context ( provider type -- handle )
     [ acquire-crypto-context ]
-    [ drop [ create-crypto-context ] [ acquire-crypto-context-failed ] recover ] recover ;
+    [
+        drop [ create-crypto-context ]
+        [ throw-acquire-crypto-context-failed ] recover
+    ] recover ;
 
 : initialize-crypto-context ( crypto-context -- crypto-context )
     dup [ provider>> ] [ type>> ] bi attempt-crypto-context >>handle ;