each-morsel ( ..a handler: ( ..a data -- ..b ) reader: ( ..b -- ..a data ) -- ..a )


Vocabulary
io

Inputs and outputs
handlera quotation with stack effect ( ..a data -- ..b )
readera quotation with stack effect ( ..b -- ..a data )


Definition


: each-morsel
( ..a handler: ( ..a data -- ..b ) reader: ( ..b -- ..a data ) -- ..a )
[ dup ] compose swap while drop ; inline