silence debug output

rakudo · Mar 20, 2013 · f283d43 · f283d43
1 parent b68b046
commit f283d43
Showing 1 changed file with 15 additions and 15 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -577,7 +577,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
         self.SET_BLOCK_OUTER_CTX($*UNIT_OUTER);
     }
 
-    method termish($/) { say("method P6 termish($/)"); }
+#    method termish($/) { say("method P6 termish($/)"); }
 
     method statementlist($/) {
         #say("method P6 statementlist($/)");
@@ -932,7 +932,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
     }
 
     method statement_control:sym<use>($/) {
-        say("method P6 statement_control:sym<use>($/)");
+#        say("method P6 statement_control:sym<use>($/)");
         my $past := QAST::Var.new( :name('Nil'), :scope('lexical') );
         if $<version> {
             # TODO: replace this by code that doesn't always die with
@@ -3655,10 +3655,10 @@ class Perl6::Actions is HLL::Actions does STDActions {
     }
 
     method term:sym<identifier>($/) {
-        say("method P6 term:sym<identifier>($/)");
+#        say("method P6 term:sym<identifier>($/)");
         my $macro := find_macro_routine(['&' ~ ~$<identifier>]);
         if $macro {
-            say("method P6 term:sym<identifier>($/) macro");
+#            say("method P6 term:sym<identifier>($/) macro");
             make expand_macro($macro, ~$<identifier>, $/, sub () {
                 my @argument_asts := [];
                 if $<args><semiarglist> {
@@ -3672,10 +3672,10 @@ class Perl6::Actions is HLL::Actions does STDActions {
             });
         }
         else {
-            say("method P6 term:sym<identifier>($/) !macro");
+#            say("method P6 term:sym<identifier>($/) !macro");
             my $past := capture_or_parcel($<args>.ast, ~$<identifier>);
             $past.name('&' ~ $<identifier>);
-            say("method P6 term:sym<identifier>($/) !macro &" ~ $<identifier>);
+#            say("method P6 term:sym<identifier>($/) !macro &" ~ $<identifier>);
             $past.node($/);
             make $past;
         }
@@ -3722,7 +3722,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
     }
 
     method term:sym<name>($/) {
-        say("method P6 term:sym<name>($/)");
+#        say("method P6 term:sym<name>($/)");
         my $past;
         if $*longname.contains_indirect_lookup() {
             if $<args> {
@@ -3887,13 +3887,13 @@ class Perl6::Actions is HLL::Actions does STDActions {
     }
 
     method semiarglist($/) {
-        say("method P6 semiarglist($/)");
+#        say("method P6 semiarglist($/)");
         if +$<arglist> == 1 {
-            say("method P6 semiarglist($/) arglist");
+#            say("method P6 semiarglist($/) arglist");
             make $<arglist>[0].ast;
         }
         else {
-            say("method P6 semiarglist($/) !arglist");
+#            say("method P6 semiarglist($/) !arglist");
             my $past := QAST::Op.new( :op('call'), :node($/) );
             for $<arglist> {
                 my $ast := $_.ast;
@@ -4080,7 +4080,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
         '^fff^',-> $/, $sym { flipflop($/[0].ast, $/[1].ast, 1, 1, 1) }
     );
     method EXPR($/, $key?) {
-        say("method P6 EXPR($/, $key)");
+#        say("method P6 EXPR($/, $key)");
         unless $key { return 0; }
         my $past := $/.ast // $<OPER>.ast;
         my $sym := ~$<infix><sym>;
@@ -4596,7 +4596,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
     }
 
     method prefixish($/) {
-        say("method P6 prefixish($/)");
+#        say("method P6 prefixish($/)");
         if $<prefix_postfix_meta_operator> {
             make QAST::Op.new( :node($/),
                      :name<&METAOP_HYPER_PREFIX>,
@@ -4708,9 +4708,9 @@ class Perl6::Actions is HLL::Actions does STDActions {
     }
 
     method postfixish($/) {
-        say("method P6 postfixish($/)");
+#        say("method P6 postfixish($/)");
         if $<postfix_prefix_meta_operator> {
-            say("method P6 postfixish($/) postfix_prefix_meta_operator");
+#            say("method P6 postfixish($/) postfix_prefix_meta_operator");
             my $past := $<OPER>.ast || QAST::Op.new( :name('&postfix:<' ~ $<OPER>.Str ~ '>'),
                                                      :op<call> );
             if $past.isa(QAST::Op) && $past.op() eq 'callmethod' {
@@ -4783,7 +4783,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
     }
 
     method postcircumfix:sym<( )>($/) {
-        say("method P6 postcircumfix:sym<( )>($/)");
+#        say("method P6 postcircumfix:sym<( )>($/)");
         make $<arglist>.ast;
     }