Permalink
Browse files

Add Mu.print

  • Loading branch information...
1 parent f437b48 commit 648c49b17882ba922c0288d5227709354af85e55 @sorear committed Mar 31, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 lib/CORE.setting
View
@@ -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;
}

0 comments on commit 648c49b

Please sign in to comment.