Make simple say more atomic in threaded situations

rakudo · Sep 6, 2014 · e0a98ba · e0a98ba
1 parent 888b855
commit e0a98ba
Showing 1 changed file with 4 additions and 15 deletions.
diff --git a/src/core/io_operators.pm b/src/core/io_operators.pm
@@ -6,21 +6,10 @@ sub print(|) {
 }
 
 proto sub say(|) { * }
-multi sub say(Obsolete:D \x) {
-    my $out := $*OUT;
-    $out.print(x.gist);
-    $out.print("\n");
-}
-multi sub say(Str:D \x) {
-    my $out := $*OUT;
-    $out.print(x);
-    $out.print("\n");
-}
-multi sub say(\x) {
-    my $out := $*OUT;
-    $out.print(x.gist);
-    $out.print("\n");
-}
+multi sub say()              { $*OUT.print: "\n" }
+multi sub say(Obsolete:D \o) { $*OUT.print: o.gist ~ "\n" }
+multi sub say(Str:D \x)      { $*OUT.print: x ~ "\n" }
+multi sub say(\x)            { $*OUT.print: x.gist ~ "\n" }
 multi sub say(|) {
     my $args := nqp::p6argvmarray();
     my $out := $*OUT;