with-crlf-stream ( quot -- )

Vocabulary

io.crlf

Inputs

quot	a quotation

Outputs

None

Word description

Substitutes the current output-stream with a wrapper that outputs CR followed by LF for every stream-nl call (words like print and nl use that internally).

Definition

USING: io kernel namespaces ;

IN: io.crlf

: with-crlf-stream ( quot -- )
    [ output-stream [ get <crlf-stream> ] keep ] dip
    with-variable ; inline