stream-read-crlf ( stream -- seq )

Vocabulary

io.crlf

Inputs

stream

an object

Outputs

seq

an object

Definition

USING: io kernel sequences ;

IN: io.crlf

:: stream-read-crlf ( stream -- seq )
    "\r" stream stream-read-until
    [ 13 assert= stream stream-read1 10 assert= ] [ f like ] if*
    ;