extra/stream/extras/extras.factor

   1 ! Copyright (C) 2016 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: io kernel namespaces ;
   4 IN: stream.extras
   5
   6 : stream-write1-flush ( str stream -- )
   7     [ stream-write1 ] [ stream-flush ] bi ; inline
   8
   9 : stream-write-flush ( str stream -- )
  10     [ stream-write ] [ stream-flush ] bi ; inline
  11
  12 : stream-print-flush ( str stream -- )
  13     [ stream-print ] [ stream-flush ] bi ; inline
  14
  15 : write1-flush ( str -- ) output-stream get stream-write1-flush ; inline
  16 : write-flush ( str -- ) output-stream get stream-write-flush ; inline
  17 : print-flush ( str -- ) output-stream get stream-print-flush ; inline
  18