core/io/streams/plain/plain.factor

   1 ! Copyright (C) 2005, 2007 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel io io.streams.nested ;
   4 IN: io.streams.plain
   5
   6 MIXIN: plain-writer
   7
   8 M: plain-writer stream-nl
   9     CHAR: \n swap stream-write1 ;
  10
  11 M: plain-writer stream-format
  12     nip stream-write ;
  13
  14 M: plain-writer make-span-stream
  15     swap <style-stream> <ignore-close-stream> ;
  16
  17 M: plain-writer make-block-stream
  18     nip <ignore-close-stream> ;