steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

freebsd-work
John Benediktsson 2019-01-10 20:35:32 -08:00
parent 15fff4a1fd
commit c2684d5875
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/io/streams/duplex/duplex.factor
View File

@ -19,7 +19,7 @@ INSTANCE: duplex-stream output-stream
: >duplex-stream< ( stream -- in out ) [ in>> ] [ out>> ] bi ; inline : >duplex-stream< ( stream -- in out ) [ in>> ] [ out>> ] bi ; inline
M: duplex-stream stream-element-type M: duplex-stream stream-element-type
[ in>> ] [ out>> ] bi >duplex-stream<
[ stream-element-type ] bi@ [ stream-element-type ] bi@
2dup eq? [ drop ] [ "Cannot determine element type" throw ] if ; 2dup eq? [ drop ] [ "Cannot determine element type" throw ] if ;