Got Windows launcher redirection working

extra/io/launcher/launcher-docs.factor

@@ -154,9 +154,14 @@ $nl
 { $subsection +detached+ }
 { $subsection +environment+ }
 { $subsection +environment-mode+ }
+"Redirecting standard input and output to files:"
+{ $subsection +stdin+ }
+{ $subsection +stdout+ }
+{ $subsection +stderr+ }
 "The following words are used to launch processes:"
 { $subsection run-process }
 { $subsection run-detached }
+"Redirecting standard input and output to a pipe:"
 { $subsection <process-stream> }
 { $subsection with-process-stream }
 "A class representing an active or finished process:"

extra/io/windows/launcher/launcher.factor

@@ -21,14 +21,12 @@ TUPLE: CreateProcess-args
        stdout-pipe stdin-pipe ;
 
 : default-CreateProcess-args ( -- obj )
-    0
     0
     "STARTUPINFO" <c-object>
     "STARTUPINFO" heap-size over set-STARTUPINFO-cb
     "PROCESS_INFORMATION" <c-object>
     TRUE
     {
-        set-CreateProcess-args-bInheritHandles
         set-CreateProcess-args-dwCreateFlags
         set-CreateProcess-args-lpStartupInfo
         set-CreateProcess-args-lpProcessInformation
@@ -103,25 +101,26 @@ TUPLE: CreateProcess-args
 : redirect ( obj access-mode create-mode -- handle )
     {
         { [ pick not ] [ 3drop f ] }
-        { [ pick +closed+ eq? ] [ 3drop f ] }
+        { [ pick +closed+ eq? ] [ 3drop t ] }
         { [ pick string? ] [ (redirect) ] }
     } cond ;
 
+: ?closed or dup t eq? [ drop f ] when ;
+
 : inherited-stdout ( args -- handle )
     CreateProcess-args-stdout-pipe
     [ pipe-out ] [ STD_OUTPUT_HANDLE GetStdHandle ] if* ;
 
 : redirect-stdout ( args -- handle )
     +stdout+ get GENERIC_WRITE CREATE_ALWAYS redirect
-    swap inherited-stdout or ;
+    swap inherited-stdout ?closed ;
 
 : inherited-stderr ( args -- handle )
-    CreateProcess-args-stdout-pipe
-    [ pipe-out ] [ STD_ERROR_HANDLE GetStdHandle ] if* ;
+    drop STD_ERROR_HANDLE GetStdHandle ;
 
 : redirect-stderr ( args -- handle )
     +stderr+ get GENERIC_WRITE CREATE_ALWAYS redirect
-    swap inherited-stderr or ;
+    swap inherited-stderr ?closed ;
 
 : inherited-stdin ( args -- handle )
     CreateProcess-args-stdin-pipe
@@ -129,7 +128,7 @@ TUPLE: CreateProcess-args
 
 : redirect-stdin ( args -- handle )
     +stdin+ get GENERIC_READ OPEN_EXISTING redirect
-    swap inherited-stdin or ;
+    swap inherited-stdin ?closed ;
 
 : fill-startup-info
     dup CreateProcess-args-lpStartupInfo