[svn:parrot] r33228 - trunk/languages/perl6/src/parser

[jonathan]

Author: jonathan
Date: Wed Nov 26 10:11:17 2008
New Revision: 33228

Modified:
   trunk/languages/perl6/src/parser/actions.pm

Log:
[rakudo] Use the Class PMC's new add_vtable_override method.

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Wed Nov 26 10:11:17 2008
@@ -717,7 +717,7 @@
         # can get data from it..
         $class_past.push(PAST::Op.new(
             :pasttype('callmethod'),
-            :name('add_method'),
+            :name('add_vtable_override'),
             PAST::Var.new(
                 :scope('lexical'),
                 :name('$def')
@@ -730,19 +730,11 @@
                     :name("$!" ~ $name),
                     :scope('attribute')
                 )
-            ),
-            PAST::Val.new(
-                :value(1),
-                :named( PAST::Val.new( :value('vtable') ) )
-            ),
-            PAST::Val.new(
-                :value(1),
-                :named( PAST::Val.new( :value('anon') ) )
             )
         ));
         $class_past.push(PAST::Op.new(
             :pasttype('callmethod'),
-            :name('add_method'),
+            :name('add_vtable_override'),
             PAST::Var.new(
                 :scope('lexical'),
                 :name('$def')
@@ -759,19 +751,11 @@
                         :scope('attribute')
                     )
                 )
-            ),
-            PAST::Val.new(
-                :value(1),
-                :named( PAST::Val.new( :value('vtable') ) )
-            ),
-            PAST::Val.new(
-                :value(1),
-                :named( PAST::Val.new( :value('anon') ) )
             )
         ));
         $class_past.push(PAST::Op.new(
             :pasttype('callmethod'),
-            :name('add_method'),
+            :name('add_vtable_override'),
             PAST::Var.new(
                 :scope('lexical'),
                 :name('$def')
@@ -788,19 +772,11 @@
                         :scope('attribute')
                     )
                 )
-            ),
-            PAST::Val.new(
-                :value(1),
-                :named( PAST::Val.new( :value('vtable') ) )
-            ),
-            PAST::Val.new(
-                :value(1),
-                :named( PAST::Val.new( :value('anon') ) )
             )
         ));
         $class_past.push(PAST::Op.new(
             :pasttype('callmethod'),
-            :name('add_method'),
+            :name('add_vtable_override'),
             PAST::Var.new(
                 :scope('lexical'),
                 :name('$def')
@@ -817,14 +793,6 @@
                         :scope('attribute')
                     )
                 )
-            ),
-            PAST::Val.new(
-                :value(1),
-                :named( PAST::Val.new( :value('vtable') ) )
-            ),
-            PAST::Val.new(
-                :value(1),
-                :named( PAST::Val.new( :value('anon') ) )
             )
         ));