Vocabulary
io

Inputs
streaman object
quota quotation with stack effect ( ... block -- ... )
block-sizean object


Outputs
None

Definition


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