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

[factor.git] / basis / tools / ps / windows / windows.factor

diff --git a/basis/tools/ps/windows/windows.factor b/basis/tools/ps/windows/windows.factor
index 470318edcbe765788605b393c8bc2b463859d35c..a21d8644d275b3e7ff07bf8f94d506519a34ea18 100644 (file)
--- a/basis/tools/ps/windows/windows.factor
+++ b/basis/tools/ps/windows/windows.factor
@@ -10,7 +10,7 @@ IN: tools.ps.windows
     0 CreateToolhelp32Snapshot dup win32-error=0/f ;
 
 : default-process-entry ( -- obj )
-    PROCESSENTRY32 <struct> PROCESSENTRY32 heap-size >>dwSize ;
+    PROCESSENTRY32 new PROCESSENTRY32 heap-size >>dwSize ;
 
 : first-process ( handle -- PROCESSENTRY32 )
     default-process-entry
@@ -28,7 +28,7 @@ IN: tools.ps.windows
 
 : query-information-process ( HANDLE -- PROCESS_BASIC_INFORMATION )
     0
-    PROCESS_BASIC_INFORMATION <struct> [
+    PROCESS_BASIC_INFORMATION new [
         dup byte-length
         f
         NtQueryInformationProcess drop