]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/io/launcher/windows/nt/nt.factor
Make sure io.backend.windows loads the implementations for the generics it defines...
[factor.git] / basis / io / launcher / windows / nt / nt.factor
index 3651785242dce89c016a53a42d88118a6832bcb3..a9c66d202efb6f7984c17e390d9a07178a68b39e 100644 (file)
@@ -23,7 +23,7 @@ IN: io.launcher.windows.nt
     (pipe) [ in>> &dispose ] [ out>> dispose ] bi ;
 
 : null-output ( -- pipe )
-    (pipe) [ in>> dispose ] [ out>> &dispose ] bi ;
+    (pipe) [ out>> &dispose ] [ in>> dispose ] bi ;
 
 : null-pipe ( mode -- pipe )
     {
@@ -48,7 +48,7 @@ IN: io.launcher.windows.nt
     create-mode
     FILE_ATTRIBUTE_NORMAL ! flags and attributes
     f ! template file
-    CreateFile dup invalid-handle? <win32-file> &dispose ;
+    CreateFile check-invalid-handle <win32-file> &dispose ;
 
 : redirect-append ( path access-mode create-mode -- handle )
     [ path>> ] 2dip