stream.extras: add print-flush, write-flush, etc.

diff --git a/extra/stream/extras/authors.txt b/extra/stream/extras/authors.txt
new file mode 100644 (file)
index 0000000..7c1b2f2
--- /dev/null
+++ b/extra/stream/extras/authors.txt
@@ -0,0 +1 @@
+Doug Coleman

diff --git a/extra/stream/extras/extras.factor b/extra/stream/extras/extras.factor
new file mode 100644 (file)
index 0000000..a6f6b4a
--- /dev/null
+++ b/extra/stream/extras/extras.factor
@@ -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
+