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 )
    '[
        >tee-stream< _
        [ [ over _ dip ] [ stream-flush ] bi ] bi*
    ] ;