Allow <assertion(args)> to use NQP expressions as arguments.

perl6 · Nov 2, 2009 · 195e47c · 195e47c
1 parent 218e91c
commit 195e47c
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -421,6 +421,18 @@ grammar NQP::Regex is Regex::P6Regex::Grammar {
         <?[{]> <codeblock>
     }
 
+    token assertion:sym<name> {
+        $<longname>=[\w+]
+            [
+            | <?before '>'>
+            | '=' <assertion>
+            | ':' <arglist>
+            | '(' <arglist=LANG('MAIN','arglist')> ')'
+            | <.normspace> <nibbler>
+            ]?
+    }
+
+
     token codeblock {
         <block=LANG('MAIN','pblock')>
     }