with-counting-stream ( stream quot -- in-count out-count )

Vocabulary

io.streams.counting

Inputs

stream	an object
quot	an object

Outputs

in-count	an object
out-count	an object

Definition

USING: accessors io kernel ;

IN: io.streams.counting

: with-counting-stream ( stream quot -- in-count out-count )
    [ <counting-stream> ] dip [ with-input-stream ] keepd
    [ in-count>> ] [ out-count>> ] bi ; inline