diff --git a/extra/io/serial/windows/windows.factor b/extra/io/serial/windows/windows.factor index 2d27a489ef..551fd16b33 100755 --- a/extra/io/serial/windows/windows.factor +++ b/extra/io/serial/windows/windows.factor @@ -2,7 +2,8 @@ ! See http://factorcode.org/license.txt for BSD license. USING: io.files.windows io.streams.duplex kernel math math.bitwise windows.kernel32 accessors alien.c-types -windows io.files.windows fry locals continuations ; +windows io.files.windows fry locals continuations +classes.struct ; IN: io.serial.windows : ( path encoding -- duplex ) @@ -10,7 +11,7 @@ IN: io.serial.windows : get-comm-state ( duplex -- dcb ) in>> handle>> - "DCB" tuck + DCB tuck GetCommState win32-error=0/f ; : set-comm-state ( duplex dcb -- )