Change check for :rule type.

perl6 · Nov 22, 2009 · e395215 · e395215
1 parent ba1f213
commit e395215
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Regex/Cursor.pir b/src/Regex/Cursor.pir
@@ -169,8 +169,8 @@ If C<regex> is omitted, then use the C<TOP> rule for the grammar.
     if has_regex goto have_regex
     regex = box 'TOP'
   have_regex:
-    $I0 = isa regex, ['Sub']
-    if $I0 goto regex_done
+    $I0 = isa regex, ['String']
+    unless $I0 goto regex_done
     $S0 = regex
     regex = find_method self, $S0
   regex_done: