From 9612a72d93b2c78a72c8836579df192be1c53b59 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Thu, 3 Jun 2010 16:26:37 -0500
Subject: [PATCH] [nqp]: Eliminate $*METHODTYPE from grammar and actions.

---
 src/NQP/Actions.pm | 2 +-
 src/NQP/Grammar.pm | 2 --
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
index 958358c..a794372 100644
--- 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
index 8e02051..f9d95e3 100644
--- 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> ')'