restrain IO.print and say to defined invocants; add a Mu.print

rakudo · Oct 1, 2011 · fb48457 · fb48457
1 parent ebd4d87
commit fb48457
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -113,12 +113,12 @@ class IO {
         nqp::p6bool(nqp::istrue($!PIO));
     }
 
-    method print(*@list) {
+    method print(IO:D: *@list) {
         $!PIO.print(nqp::unbox_s(@list.shift.Str)) while @list.gimme(1);
         Bool::True
     }
 
-    method say(|$) {
+    method say(IO:D: |$) {
         my Mu $args := pir::perl6_current_args_rpa__P();
         nqp::shift($args);
         self.print: nqp::shift($args).gist while $args;

diff --git a/src/core/Mu.pm b/src/core/Mu.pm
@@ -140,6 +140,7 @@ my class Mu {
     method item() { self }
 
     method say() { say(self) }
+    method print() { print(self) }
 
     proto method gist(|$) { * }
     multi method gist(Mu:U:) { self.HOW.name(self) ~ '()' }