(each-stream-block) ( ... stream quot: ( ... block -- ... ) block-size -- ... )

Vocabulary

io

Inputs

stream	an object
quot	a quotation with stack effect ( ... block -- ... )
block-size	an object

Outputs

None

Definition

USING: kernel ;

IN: io

: (each-stream-block)
    ( ... stream quot: ( ... block -- ... ) block-size -- ... )
    -rot [ [ stream-read-partial ] 2curry ] dip while* ; inline