stream.extras: add print-flush, write-flush, etc.
parent
7f3adf3fb1
commit
c1d78e87ff
|
@ -0,0 +1 @@
|
|||
Doug Coleman
|
|
@ -0,0 +1,18 @@
|
|||
! Copyright (C) 2016 Doug Coleman.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: io kernel namespaces ;
|
||||
IN: stream.extras
|
||||
|
||||
: stream-write1-flush ( str stream -- )
|
||||
[ stream-write1 ] [ stream-flush ] bi ; inline
|
||||
|
||||
: stream-write-flush ( str stream -- )
|
||||
[ stream-write ] [ stream-flush ] bi ; inline
|
||||
|
||||
: stream-print-flush ( str stream -- )
|
||||
[ stream-print ] [ stream-flush ] bi ; inline
|
||||
|
||||
: write1-flush ( str -- ) output-stream get stream-write1-flush ; inline
|
||||
: write-flush ( str -- ) output-stream get stream-write-flush ; inline
|
||||
: print-flush ( str -- ) output-stream get stream-print-flush ; inline
|
||||
|
Loading…
Reference in New Issue