Make sure io.backend.windows loads the implementations for the generics it defines...

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

diff --git a/basis/windows/errors/errors.factor b/basis/windows/errors/errors.factor
index a4943ef87727ee7020dd0c6e33270d24cf9a7030..99284bdb8051beeafc40c8bd5a016633f0fc8a95 100755 (executable)
--- a/basis/windows/errors/errors.factor
+++ b/basis/windows/errors/errors.factor
@@ -734,10 +734,8 @@ ERROR: windows-error n string ;
 : win32-error<0 ( n -- ) 0 < [ win32-error ] when ;
 : win32-error<>0 ( n -- ) zero? [ win32-error ] unless ;
 
-: invalid-handle? ( handle -- )
-    INVALID_HANDLE_VALUE = [
-        win32-error-string throw
-    ] when ;
+: check-invalid-handle ( handle -- handle )
+    dup INVALID_HANDLE_VALUE = [ win32-error-string throw ] when ;
 
 CONSTANT: expected-io-errors
     ${