2005-12-16 21:12:35 -05:00
|
|
|
IN: io
|
2006-01-16 02:48:15 -05:00
|
|
|
USING: generic kernel namespaces ;
|
2005-12-16 21:12:35 -05:00
|
|
|
|
|
|
|
|
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-format nip stream-write ;
|
2005-12-19 02:12:40 -05:00
|
|
|
M: plain-writer with-nested-stream ( quot style stream -- )
|
2006-01-21 02:37:39 -05:00
|
|
|
nip swap with-stream* ;
|
