From d2fc408c1b63a375696b94e87d4d42e3bc8fea67 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 3 Apr 2008 17:04:23 -0500
Subject: [PATCH] Fix Windows launcher
---
extra/io/windows/launcher/launcher.factor | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/extra/io/windows/launcher/launcher.factor b/extra/io/windows/launcher/launcher.factor
index 2724966a8f..f9b2742cda 100755
--- a/extra/io/windows/launcher/launcher.factor
+++ b/extra/io/windows/launcher/launcher.factor
@@ -27,8 +27,7 @@ TUPLE: CreateProcess-args
"STARTUPINFO" heap-size over set-STARTUPINFO-cb >>lpStartupInfo
"PROCESS_INFORMATION" <c-object> >>lpProcessInformation
TRUE >>bInheritHandles
- 0 >>dwCreateFlags
- current-directory get (normalize-path) >>lpCurrentDirectory ;
+ 0 >>dwCreateFlags ;
: call-CreateProcess ( CreateProcess-args -- )
{
@@ -118,6 +117,7 @@ M: windows run-process* ( process -- handle )
[
dup make-CreateProcess-args
tuck fill-redirection
+ current-directory get (normalize-path) cd
dup call-CreateProcess
lpProcessInformation>>
] with-destructors ;