read-lines ( stream -- )

Vocabulary

log-viewer

Inputs

stream

an object

Outputs

None

Definition

USING: io kernel ;

IN: log-viewer

: read-lines ( stream -- )
    dup stream-readln dup
    [ print read-lines ] [ 2drop flush ] if ;