cat-stream ( -- )

Vocabulary

tools.cat

Inputs

None

Outputs

None

Definition

USING: io io.encodings io.encodings.binary kernel namespaces ;

IN: tools.cat

: cat-stream ( -- )
    input-stream get binary re-decode
    output-stream get binary re-encode
    [ [ stream-write ] [ stream-flush ] bi ] curry
    each-stream-block ;