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

[factor.git] / basis / system-info / windows / windows.factor

diff --git a/basis/system-info/windows/windows.factor b/basis/system-info/windows/windows.factor
index 7e344d3c574950174a490555396631cb3eca4897..0af078d3861e05ccbbbd3cd1eb8495c49a318d2c 100644 (file)
--- a/basis/system-info/windows/windows.factor
+++ b/basis/system-info/windows/windows.factor
@@ -10,7 +10,7 @@ SPECIALIZED-ARRAY: ushort
 IN: system-info.windows
 
 : system-info ( -- SYSTEM_INFO )
-    SYSTEM_INFO <struct> [ GetSystemInfo ] keep ;
+    SYSTEM_INFO new [ GetSystemInfo ] keep ;
 
 : page-size ( -- n )
     system-info dwPageSize>> ;
@@ -24,7 +24,7 @@ IN: system-info.windows
     system-info dwOemId>> 0xffff0000 bitand ;
 
 : os-version-struct ( -- os-version )
-    OSVERSIONINFO <struct>
+    OSVERSIONINFO new
         OSVERSIONINFO heap-size >>dwOSVersionInfoSize
     dup GetVersionEx win32-error=0/f ;
 
@@ -75,7 +75,7 @@ M: windows cpu-mhz
     get-processor-power-information first MaxMhz>> 1,000,000 * ;
 
 : memory-status ( -- MEMORYSTATUSEX )
-    MEMORYSTATUSEX <struct>
+    MEMORYSTATUSEX new
     MEMORYSTATUSEX heap-size >>dwLength
     dup GlobalMemoryStatusEx win32-error=0/f ;