each-stream-line ( ... stream quot: ( ... line -- ... ) -- ... )


Vocabulary
io

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


Outputs
None

Definition


: each-stream-line
( ... stream quot: ( ... line -- ... ) -- ... )
[ [ stream-readln ] curry ] dip while* ; inline