Add first cut at $*OUT

sorear · May 27, 2011 · 9e75e8d · 9e75e8d
1 parent 3b56aac
commit 9e75e8d
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/lib/CORE.setting b/lib/CORE.setting
@@ -1375,6 +1375,11 @@ augment class Str {
     method IO() { IO.new(path => self) }
 }
 
+my class TextWriter {
+    method say(*@bits) { say @bits }
+    method print(*@bits) { print @bits }
+}
+
 my class TextReader {
     method get() {
         Q:CgOp {
@@ -1412,6 +1417,7 @@ sub prompt($msg) { print $msg; $*IN.get }
 sub getc($handle) { $handle.getc }
 
 $PROCESS::IN ::= Q:CgOp { (box TextReader (treader_stdin)) };
+$PROCESS::OUT ::= TextWriter.new;
 @PROCESS::ARGS = unitem(Q:CgOp { (box Parcel (getargv)) });
 # }}}