Windows launcher fix
parent
4139f0e804
commit
6a823c4a69
|
@ -116,9 +116,10 @@ M: windows current-process-handle ( -- handle )
|
||||||
|
|
||||||
M: windows run-process* ( process -- handle )
|
M: windows run-process* ( process -- handle )
|
||||||
[
|
[
|
||||||
|
current-directory get (normalize-path) cd
|
||||||
|
|
||||||
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 ;
|
||||||
|
|
|
@ -120,6 +120,8 @@ M: winnt fill-redirection ( process args -- )
|
||||||
|
|
||||||
M: winnt (process-stream)
|
M: winnt (process-stream)
|
||||||
[
|
[
|
||||||
|
current-directory get (normalize-path) cd
|
||||||
|
|
||||||
dup make-CreateProcess-args
|
dup make-CreateProcess-args
|
||||||
|
|
||||||
fill-stdout-pipe
|
fill-stdout-pipe
|
||||||
|
|
Loading…
Reference in New Issue