Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add Mu.print

  • Loading branch information...
commit 648c49b17882ba922c0288d5227709354af85e55 1 parent f437b48
@sorear authored
Showing with 2 additions and 1 deletion.
  1. +2 −1  lib/CORE.setting
View
3  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;
}
Please sign in to comment.
Something went wrong with that request. Please try again.