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

[pmichaud]

Author: pmichaud
Date: Fri Dec 26 09:48:19 2008
New Revision: 34388

Modified:
   trunk/languages/perl6/src/parser/grammar.pg

Log:
[rakudo]:  Enable -> pointy blocks to be parsed as a term.  (RT #61672)


Modified: trunk/languages/perl6/src/parser/grammar.pg
==============================================================================
--- trunk/languages/perl6/src/parser/grammar.pg (original)
+++ trunk/languages/perl6/src/parser/grammar.pg Fri Dec 26 09:48:19 2008
@@ -902,3 +902,10 @@
 proto 'term:' is precedence('z=')
     is parsed(&expect_term)
     { ... }
+
+proto 'term:->' is equiv(term:)
+    is parsed(&pblock)
+    is skipkey(0)
+    { ... }
+
+proto 'close:<->' is equiv(term:) { ... }