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

[jonathan]

Author: jonathan
Date: Sun Mar 23 11:49:40 2008
New Revision: 26524

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

Log:
[rakudo] Fixes to colonpair action. Patch courtesy of cognominal++.

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Sun Mar 23 11:49:40 2008
@@ -1245,7 +1245,7 @@
     my $pair_val;
 
     if $key eq 'false' {
-        my $pair_key := PAST::Val.new( :value(~$<key>) );
+        $pair_key := PAST::Val.new( :value(~$<ident>) );
         $pair_val := PAST::Var.new(
             :name('False'),
             :namespace('Bool'),
@@ -1253,7 +1253,7 @@
         );
     }
     elsif $key eq 'value' {
-        my $pair_key := PAST::Val.new( :value(~$<key>) );
+        $pair_key := PAST::Val.new( :value(~$<ident>) );
         if $<postcircumfix> {
             # XXX TODO
             $/.panic('postcircumfix on colonpair not yet implemented');