Handle nibbler case of named assertions.

Raku · Nov 18, 2011 · 3071d43 · 3071d43
1 parent 0b22858
commit 3071d43
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -207,7 +207,7 @@ class QRegex::P6Regex::Actions is HLL::Actions {
             QAST::Regex.new(
                 $<GOAL>.ast,
                 QAST::Regex.new( PAST::Node.new('FAILGOAL', ~$<GOAL>),
-                                  :rxtype<subrule>, :subtype<method> ),
+                                 :rxtype<subrule>, :subtype<method> ),
                 :rxtype<altseq>
             ),
             :rxtype<concat>
@@ -342,6 +342,9 @@ class QRegex::P6Regex::Actions is HLL::Actions {
             if $<arglist> {
                 for $<arglist>[0].ast.list { $qast[0].push( $_ ) }
             }
+            elsif $<nibbler> {
+                $qast[0].push(buildsub($<nibbler>[0].ast));
+            }
         }
         make $qast;
     }