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

Fix launchers

db4
Slava Pestov 2008-03-28 01:22:51 -05:00
parent 0934473b72
commit bbd1ac7180
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/io/unix/launcher/launcher.factor
View File

@ -70,7 +70,7 @@ USE: unix
[ [
setup-priority setup-priority
setup-redirection setup-redirection
current-directory get cd current-directory get resource-path cd
dup pass-environment? [ dup pass-environment? [
dup get-environment set-os-envs dup get-environment set-os-envs
] when ] when

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

@ -23,12 +23,12 @@ TUPLE: CreateProcess-args
: default-CreateProcess-args ( -- obj ) : default-CreateProcess-args ( -- obj )
CreateProcess-args construct-empty CreateProcess-args construct-empty
0 >>dwCreateFlags
"STARTUPINFO" <c-object> "STARTUPINFO" <c-object>
"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
current-directory get >>lpCurrentDirectory ; 0 >>dwCreateFlags
current-directory get normalize-pathname >>lpCurrentDirectory ;
: call-CreateProcess ( CreateProcess-args -- ) : call-CreateProcess ( CreateProcess-args -- )
{ {