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

Vocabulary

io

Inputs

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

Outputs

None

Definition

USING: kernel ;

IN: io

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