From 993684ebb001b01521dd472809b54e4e4d9ddc8a Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Fri, 25 Jan 2008 02:21:27 -0400
Subject: [PATCH] More work in progress

---
 extra/io/windows/launcher/launcher.factor    | 7 ++++---
 extra/io/windows/nt/launcher/launcher.factor | 2 +-
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/extra/io/windows/launcher/launcher.factor b/extra/io/windows/launcher/launcher.factor
index 6d7a96b069..bd2a4adb6e 100755
--- a/extra/io/windows/launcher/launcher.factor
+++ b/extra/io/windows/launcher/launcher.factor
@@ -26,11 +26,13 @@ TUPLE: CreateProcess-args
     "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
+        set-CreateProcess-args-bInheritHandles
     } \ CreateProcess-args construct ;
 
 : call-CreateProcess ( CreateProcess-args -- )
@@ -143,13 +145,12 @@ TUPLE: CreateProcess-args
     default-CreateProcess-args
     wince? [ fill-lpApplicationName ] [ fill-lpCommandLine ] if
     fill-dwCreateFlags
-    fill-lpEnvironment
-    fill-startup-info ;
+    fill-lpEnvironment ;
 
 M: windows-io run-process* ( desc -- handle )
     [
         [
-            make-CreateProcess-args
+            make-CreateProcess-args fill-startup-info
             dup call-CreateProcess
             CreateProcess-args-lpProcessInformation <process>
         ] with-descriptor
diff --git a/extra/io/windows/nt/launcher/launcher.factor b/extra/io/windows/nt/launcher/launcher.factor
index f548c5945c..c2f14c21bb 100755
--- a/extra/io/windows/nt/launcher/launcher.factor
+++ b/extra/io/windows/nt/launcher/launcher.factor
@@ -34,10 +34,10 @@ M: windows-io process-stream*
     [
         [
             make-CreateProcess-args
-            TRUE over set-CreateProcess-args-bInheritHandles
 
             fill-stdout-pipe
             fill-stdin-pipe
+            fill-startup-info
 
             dup call-CreateProcess