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

Author: jonathan
Date: Mon Jan 19 09:21:23 2009
New Revision: 35763

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

Log:
[rakudo] Fix say A::b() to actually call A::b.

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm	(original)
+++ trunk/languages/perl6/src/parser/actions.pm	Mon Jan 19 09:21:23 2009
@@ -2651,7 +2651,7 @@
 # Used by all calling code to process arguments into the correct form.
 sub build_call($args) {
     if !$args.isa(PAST::Op) || $args.name() ne 'infix:,' {
-        $args := PAST::Op.new( :node($args), :name('infix:,'), $args);
+        $args := PAST::Op.new( :node($args), $args);
     }
     my $i := 0;
     my $elems := +@($args);
@@ -2664,6 +2664,7 @@
         $i++;
     }
     $args.pasttype('call');
+    $args.name('');
     $args;
 }