Windows launcher fix

db4
Slava Pestov 2008-04-04 22:40:37 -05:00
parent 4139f0e804
commit 6a823c4a69
2 changed files with 4 additions and 1 deletions

View File

@ -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 ;

View File

@ -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