line-ends\n ( stream str -- str )


Vocabulary
io.encodings.private

Inputs
streaman object
stran object


Outputs
stran object


Definition
USING: accessors io kernel sequences ;

IN: io.encodings.private

: line-ends\n ( stream str -- str )
over cr>>
[ over cr- [ stream-readln ] [ nip ] if-empty ] [ nip ] if ;
inline