diff --git a/extra/io/serial/serial.factor b/extra/io/serial/serial.factor index 41e7ed3eb1..a333cc4c17 100644 --- a/extra/io/serial/serial.factor +++ b/extra/io/serial/serial.factor @@ -23,10 +23,7 @@ M: serial-port dispose* ( serial -- ) stream>> dispose ; swap >>path default-serial-flags ; -: with-duplex-stream ( duplex-stream quot -- ) - [ [ in>> ] [ out>> ] bi ] dip with-streams ; inline - : with-serial-port ( serial-port quot -- ) - [ open-serial ] dip with-duplex-stream ; inline + [ open-serial ] dip with-stream ; inline "io.serial." os name>> append require