tee1 ( read-quot write-quot -- quot )

Vocabulary

io.streams.tee.private

Inputs

read-quot	an object
write-quot	an object

Outputs

quot

an object

Definition

USING: io kernel ;

IN: io.streams.tee.private

MACRO: tee1 ( read-quot write-quot -- quot )
    [ [ over ] ] dip [ dip ] curry compose
    [ [ stream-flush ] bi ] curry
    [ [ [ >tee-stream< ] ] dip ] dip [ bi* ] 2curry compose ;