18 lines
628 B
Factor
18 lines
628 B
Factor
! 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
|