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

Vocabulary

io

Inputs

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

Outputs

None

Definition

USING: io.private kernel ;

IN: io

: (each-stream-block-slice)
    ( ... stream quot: ( ... block-slice -- ... ) block-size -- ... )
    -rot [
        [ new-sequence-for-stream ] keep
        [ stream-read-partial-into ] 2curry
    ] dip while drop ; inline