[nqp]: Eliminate $*METHODTYPE from grammar and actions.

perl6 · Jun 3, 2010 · 9612a72 · 9612a72
1 parent 7006d42
commit 9612a72
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 3 deletions.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -463,6 +463,7 @@ method method_def($/) {
         my $name := ~$<deflongname>[0].ast;
         $past.name($name);
     }
+    if $*MULTINESS eq 'multi' { $past.multi().unshift('_'); }
     make $past;
 }
 
@@ -475,7 +476,6 @@ method signature($/) {
     # Generate :multi pragma
     if $*MULTINESS eq "multi" {
         my @params;
-        @params.push('_') if $*METHODTYPE eq "Method";
         for $BLOCKINIT.list {
             @params.push($_.multitype // '_');
         }

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -9,7 +9,6 @@ method TOP() {
     %*LANG<MAIN-actions>  := NQP::Actions;
     my $*SCOPE      := '';
     my $*MULTINESS  := '';
-    my $*METHODTYPE := '';
     self.comp_unit;
 }
 
@@ -302,7 +301,6 @@ rule routine_def {
 }
 
 rule method_def {
-    :my $*METHODTYPE := 'Method';
     <deflongname>?
     <.newpad>
     [ '(' <signature> ')'