steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix Windows launcher

db4
Slava Pestov 2008-04-03 17:04:23 -05:00
parent a829e0c1fa
commit d2fc408c1b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/io/windows/launcher/launcher.factor
View File

@ -27,8 +27,7 @@ TUPLE: CreateProcess-args
"STARTUPINFO" heap-size over set-STARTUPINFO-cb >>lpStartupInfo "STARTUPINFO" heap-size over set-STARTUPINFO-cb >>lpStartupInfo
"PROCESS_INFORMATION" <c-object> >>lpProcessInformation "PROCESS_INFORMATION" <c-object> >>lpProcessInformation
TRUE >>bInheritHandles TRUE >>bInheritHandles
0 >>dwCreateFlags 0 >>dwCreateFlags ;
current-directory get (normalize-path) >>lpCurrentDirectory ;
: call-CreateProcess ( CreateProcess-args -- ) : call-CreateProcess ( CreateProcess-args -- )
{ {
@ -118,6 +117,7 @@ M: windows run-process* ( process -- handle )
[ [
dup make-CreateProcess-args dup make-CreateProcess-args
tuck fill-redirection tuck fill-redirection
current-directory get (normalize-path) cd
dup call-CreateProcess dup call-CreateProcess
lpProcessInformation>> lpProcessInformation>>
] with-destructors ; ] with-destructors ;