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

[factor.git] / extra / io / serial / windows / windows.factor

diff --git a/extra/io/serial/windows/windows.factor b/extra/io/serial/windows/windows.factor
index 4ea3d5e9e44783d858f5320282d0b00d7c8b31be..c76fff77efe0926938ed88a3f1c55ccef350f820 100644 (file)
--- a/extra/io/serial/windows/windows.factor
+++ b/extra/io/serial/windows/windows.factor
@@ -10,7 +10,7 @@ IN: io.serial.windows
 
 : get-comm-state ( duplex -- dcb )
     in>> handle>>
-    DCB <struct> [ GetCommState win32-error=0/f ] keep ;
+    DCB new [ GetCommState win32-error=0/f ] keep ;
 
 : set-comm-state ( duplex dcb -- )
     [ in>> handle>> ] dip