classes.struct: moving to new/boa instead of <struct>/<struct-boa>

[factor.git] / basis / io / launcher / windows / windows.factor

diff --git a/basis/io/launcher/windows/windows.factor b/basis/io/launcher/windows/windows.factor
index 7829ec5d8d99730b8d0db8d2626e4c62f5b99ddf..7a957e30032ea7054f2a84df5eda1288e4930cbf 100644 (file)
--- a/basis/io/launcher/windows/windows.factor
+++ b/basis/io/launcher/windows/windows.factor
@@ -28,10 +28,10 @@ TUPLE: CreateProcess-args
 
 : default-CreateProcess-args ( -- obj )
     CreateProcess-args new
-        STARTUPINFO <struct>
+        STARTUPINFO new
         dup class-of heap-size >>cb
     >>lpStartupInfo
-    PROCESS_INFORMATION <struct> >>lpProcessInformation
+    PROCESS_INFORMATION new >>lpProcessInformation
     TRUE >>bInheritHandles
     0 >>dwCreateFlags ;