X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fwindows%2Fhardware%2Fhardware.factor;fp=basis%2Fwindows%2Fhardware%2Fhardware.factor;h=b0594793408bb19abe49779e968a506458e67084;hp=b7d7e4516735f2bf910c32cc140cabb39e16c4e5;hb=7ec2ba15ef18bc0a2ec05e075758eb5f315c8a13;hpb=48191c249b8441268c42f1e453c8945bc81db3df

diff --git a/basis/windows/hardware/hardware.factor b/basis/windows/hardware/hardware.factor
index b7d7e45167..b059479340 100644
--- 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 ;