Allow Grammar.parse() to take the name of a subrule as well as a rule.

perl6 · Nov 13, 2009 · cf48f55 · cf48f55
1 parent b6a6b03
commit cf48f55
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/src/Regex/Cursor.pir b/src/Regex/Cursor.pir
@@ -166,8 +166,13 @@ If C<regex> is omitted, then use the C<TOP> rule for the grammar.
     .param int rxtrace         :named('rxtrace') :optional
     .param pmc options         :slurpy :named
 
-    if has_regex goto regex_done
-    regex = find_method self, 'TOP'
+    if has_regex goto have_regex
+    regex = box 'TOP'
+  have_regex:
+    $I0 = isa regex, ['Sub']
+    if $I0 goto regex_done
+    $S0 = regex
+    regex = find_method self, $S0
   regex_done:
 
     .lex '$*ACTIONS', actions