factor/library/io/plain-stream.factor

IN: io
USING: generic kernel namespaces ;

TUPLE: plain-writer ;

C: plain-writer ( stream -- stream ) [ set-delegate ] keep ;

M: plain-writer stream-terpri CHAR: \n swap stream-write1 ;
M: plain-writer stream-terpri* stream-terpri ;
M: plain-writer stream-format nip stream-write ;
M: plain-writer with-nested-stream ( quot style stream -- )
    [ stdio set drop call ] with-scope ;