factor: remove in-out, it's just in>> out>>

[factor.git] / basis / io / streams / duplex / duplex.factor

diff --git a/basis/io/streams/duplex/duplex.factor b/basis/io/streams/duplex/duplex.factor
index 7dc493b2f67ad345d2afd0479529a4edf12ac46c..a9d7a0c04deddaab2f42a7dc2368dd4f0884853f 100644 (file)
--- a/basis/io/streams/duplex/duplex.factor
+++ b/basis/io/streams/duplex/duplex.factor
@@ -15,7 +15,7 @@ CONSULT: formatted-output-stream-protocol duplex-stream out>> ;
 INSTANCE: duplex-stream input-stream
 INSTANCE: duplex-stream output-stream
 
-: >duplex-stream< ( stream -- in out ) in-out ; inline
+: >duplex-stream< ( stream -- in out ) [ in>> ] [ out>> ] bi ; inline
 
 M: duplex-stream stream-element-type
     >duplex-stream<