From c2684d587528f63c235837a1d66fff5c9b4e3f81 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 10 Jan 2019 20:35:32 -0800 Subject: [PATCH] io.streams.duplex: use >duplex-stream<. --- basis/io/streams/duplex/duplex.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/io/streams/duplex/duplex.factor b/basis/io/streams/duplex/duplex.factor index fc1a55fc00..9cea968567 100644 --- 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 ;