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

new accessors

db4
Doug Coleman 2008-09-02 13:42:05 -05:00
parent 4dc89ae427
commit b7c83ff83e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/io/windows/launcher/launcher.factor
View File

@ -151,13 +151,13 @@ M: windows kill-process* ( handle -- )
swap win32-error=0/f ; swap win32-error=0/f ;
: process-exited ( process -- ) : process-exited ( process -- )
dup process-handle exit-code dup handle>> exit-code
over process-handle dispose-process over handle>> dispose-process
notify-exit ; notify-exit ;
M: windows wait-for-processes ( -- ? ) M: windows wait-for-processes ( -- ? )
processes get keys dup processes get keys dup
[ process-handle PROCESS_INFORMATION-hProcess ] map [ handle>> PROCESS_INFORMATION-hProcess ] map
dup length swap >c-void*-array 0 0 dup length swap >c-void*-array 0 0
WaitForMultipleObjects WaitForMultipleObjects
dup HEX: ffffffff = [ win32-error ] when dup HEX: ffffffff = [ win32-error ] when