Add Mu.print

FROGGS · Mar 31, 2012 · 648c49b · 648c49b
1 parent f437b48
commit 648c49b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/CORE.setting b/lib/CORE.setting
@@ -225,6 +225,7 @@ my class Mu {
     }
     method gist() { defined(self) ?? self.perl   !! self.typename ~ '()' }
     method say()  { self.gist.say }
+    method print()  { $*OUT.print(self) }
     method Stringy() { self.Str }
     method Str() {
         if defined(self) {
@@ -3575,7 +3576,7 @@ my class TextWriter {
 
     method print(*@c) {
         # $PROCESS::OUTPUT_USED := True;
-        Q:CgOp { (rnull (twriter_puts (unbox twriter (@ {self})) (obj_getstr {Niecza::gistcat(|@c)}))) };
+        Q:CgOp { (rnull (twriter_puts (unbox twriter (@ {self})) (obj_getstr {@c.join("")}))) };
         True;
     }