From 15fff4a1fd7557d74263be84551c8a073f6c6488 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 10 Jan 2019 20:34:58 -0800
Subject: [PATCH] io.serial: use io.streams.duplex:with-stream.

---
 extra/io/serial/serial.factor | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

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