io.streams.duplex: use >duplex-stream<.

diff --git a/basis/io/streams/duplex/duplex.factor b/basis/io/streams/duplex/duplex.factor
index fc1a55fc00b4a3d5245cec3eb6693676091f015f..9cea968567a0027f3283050b0e81a2453ee6c873 100644 (file)
--- a/basis/io/streams/duplex/duplex.factor
+++ b/basis/io/streams/duplex/duplex.factor
@@ -19,7 +19,7 @@ INSTANCE: duplex-stream output-stream
 : >duplex-stream< ( stream -- in out ) [ in>> ] [ out>> ] bi ; inline
 
 M: duplex-stream stream-element-type
-    [ in>> ] [ out>> ] bi
+    >duplex-stream<
     [ stream-element-type ] bi@
     2dup eq? [ drop ] [ "Cannot determine element type" throw ] if ;