From b7c83ff83eefa5a83da70b77d0e5cf1e31fe25cf Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 2 Sep 2008 13:42:05 -0500 Subject: [PATCH] new accessors --- basis/io/windows/launcher/launcher.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/io/windows/launcher/launcher.factor b/basis/io/windows/launcher/launcher.factor index ed9b53675b..eabd044bb4 100755 --- a/basis/io/windows/launcher/launcher.factor +++ b/basis/io/windows/launcher/launcher.factor @@ -151,13 +151,13 @@ M: windows kill-process* ( handle -- ) swap win32-error=0/f ; : process-exited ( process -- ) - dup process-handle exit-code - over process-handle dispose-process + dup handle>> exit-code + over handle>> dispose-process notify-exit ; M: windows wait-for-processes ( -- ? ) processes get keys dup - [ process-handle PROCESS_INFORMATION-hProcess ] map + [ handle>> PROCESS_INFORMATION-hProcess ] map dup length swap >c-void*-array 0 0 WaitForMultipleObjects dup HEX: ffffffff = [ win32-error ] when