X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fio%2Flauncher%2Fwindows%2Fwindows.factor;h=cee6f3d60e0ac19feb1129f25f9bbeb1830a83f1;hp=b279b1e964ec0f62d1ce26d1641cf55830673981;hb=70a99e1cdb02548627e928196e686b06a078467d;hpb=c9ad0856d5de6321c672936e6fc507a155ee8d98

diff --git a/basis/io/launcher/windows/windows.factor b/basis/io/launcher/windows/windows.factor
index b279b1e964..cee6f3d60e 100755
--- a/basis/io/launcher/windows/windows.factor
+++ b/basis/io/launcher/windows/windows.factor
@@ -159,7 +159,7 @@ M: windows kill-process* ( handle -- )
 
 : exit-code ( process -- n )
     hProcess>>
-    0 <ulong> [ GetExitCodeProcess ] keep *ulong
+    { DWORD } [ GetExitCodeProcess ] [ ] with-out-parameters
     swap win32-error=0/f ;
 
 : process-exited ( process -- )