basis: ERROR: changes.

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

diff --git a/basis/windows/registry/registry.factor b/basis/windows/registry/registry.factor
index 968b52fbe49730285c7962f7f994edbe6de6d389..65d64b85fb24958cb0563c0d02a83473c87b3384 100644 (file)
--- a/basis/windows/registry/registry.factor
+++ b/basis/windows/registry/registry.factor
@@ -19,7 +19,7 @@ CONSTANT: registry-value-max-length 16384
             drop
         ] [
             [ key subkey mode ] dip n>win32-error-string
-            open-key-failed
+            throw-open-key-failed
         ] if
     ] keep HKEY deref ;
 
@@ -36,7 +36,7 @@ CONSTANT: registry-value-max-length 16384
             hKey lpSubKey 0 lpClass dwOptions samDesired
             lpSecurityAttributes
         ] dip n>win32-error-string
-        create-key-failed
+        throw-create-key-failed
     ] unless ;
 
 : create-key ( hkey lsubkey -- hkey )