stream-read1-ignoring-crlf ( stream -- ch )

Vocabulary

io.crlf

Inputs

stream

an object

Outputs

ch

an object

Definition

USING: io kernel sequences ;

IN: io.crlf

:: stream-read1-ignoring-crlf ( stream -- ch )
    stream stream-read1 dup "\r\n" member?
    [ drop stream stream-read1-ignoring-crlf ] when ; inline
    recursive