windows.errors: make check-invalid-handle throw windows-error instances

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

diff --git a/basis/windows/errors/errors.factor b/basis/windows/errors/errors.factor
index 83a8df0148f663173bbd8731f828fba2b30a7eb2..82e8701d16f0fe231dd7ba319f4d99f79a938e88 100644 (file)
--- a/basis/windows/errors/errors.factor
+++ b/basis/windows/errors/errors.factor
@@ -744,7 +744,7 @@ ERROR: windows-error n string ;
     win32-error-string throw ;
 
 : check-invalid-handle ( handle -- handle )
-    dup INVALID_HANDLE_VALUE = [ throw-win32-error ] when ;
+    dup INVALID_HANDLE_VALUE = [ win32-error ] when ;
 
 CONSTANT: expected-io-errors
     ${