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

[factor.git] / basis / windows / hardware / hardware.factor

diff --git a/basis/windows/hardware/hardware.factor b/basis/windows/hardware/hardware.factor
index b7d7e4516735f2bf910c32cc140cabb39e16c4e5..b0594793408bb19abe49779e968a506458e67084 100644 (file)
--- a/basis/windows/hardware/hardware.factor
+++ b/basis/windows/hardware/hardware.factor
@@ -9,7 +9,7 @@ IN: windows.hardware
     BOOL { HMONITOR HDC LPRECT LPARAM } stdcall [
         4dup 4array .
         3drop
-        MONITORINFOEX <struct> dup byte-length >>cbSize
+        MONITORINFOEX new dup byte-length >>cbSize
         [ GetMonitorInfo win32-error=0/f ] keep ... flush
         TRUE
     ] alien-callback ;