[svn:parrot] r48125 - trunk/examples/languages/squaak/src/Squaak

[tcurtis at svn.parrot.org]

Author: tcurtis
Date: Tue Jul 20 16:11:31 2010
New Revision: 48125
URL: https://trac.parrot.org/parrot/changeset/48125

Log:
Fix a bug in hash indexing.

Modified:
   trunk/examples/languages/squaak/src/Squaak/Actions.pm

Modified: trunk/examples/languages/squaak/src/Squaak/Actions.pm
==============================================================================
--- trunk/examples/languages/squaak/src/Squaak/Actions.pm	Tue Jul 20 13:20:57 2010	(r48124)
+++ trunk/examples/languages/squaak/src/Squaak/Actions.pm	Tue Jul 20 16:11:31 2010	(r48125)
@@ -302,7 +302,7 @@
 }
 
 method postfix_expression:sym<key>($/) {
-    my $key := $<expression>.ast;
+    my $key := $<EXPR>.ast;
 
     make PAST::Var.new( $key, :scope('keyed'),
                               :vivibase('Hash'),