Changeset 22020 for src/perl6

Timestamp:

08/23/08 09:36:52 (3 months ago)

Author:

lwall

Message:

[STD] fix null name problem preventing enum <a b c> from parsing
[STD] define repeat in terms of <xblock> to allow ->

Files:

• src/perl6/STD.pm (modified) (3 diffs)

src/perl6/STD.pm

@@ -755 +755 @@
     <sym>
     [
-        | ('while'|'until') <EXPR>         {*}                      #= wu expr
-          <block>                      {*}                      #= wu block
+        | ('while'|'until')
+          <xblock>
         | <block>                      {*}                      #= block wu
           ('while'|'until') <EXPR>         {*}                      #= expr wu
@@ -1640 +1640 @@
     | <identifier> <morename>*
     | <morename>+
-    ]?
-    '::'?
+    ]
 }
 
 token morename {
     '::'
-    <?before '(' | <alpha> >
-    [
-    | <identifier>
-    | '(' <in: ')', 'EXPR', 'indirect name'>
-    ]
+    [
+        <?before '(' | <alpha> >
+        [
+        | <identifier>
+        | '(' <in: ')', 'EXPR', 'indirect name'>
+        ]
+    ]?
 }
 
@@ -2568 +2569 @@
 }
 
-rule type_declarator:enum {
+rule type_declarator:enum {\
     <sym>
     [ <longname> { $¢.add_type($<longname>); } ]?