optimize the topmost regex node as well ...

Raku · Nov 23, 2013 · 1d3e6b1 · 1d3e6b1
1 parent b7e33f0
commit 1d3e6b1
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/QRegex/P6Regex/Optimizer.nqp b/src/QRegex/P6Regex/Optimizer.nqp
@@ -3,7 +3,15 @@ class QRegex::Optimizer {
 
     method optimize($node, $outer, *%adverbs) {
         my @!outer := [$outer];
-        self.visit_children($node);
+        my $type := $node.rxtype;
+        if $type eq 'concat' {
+            return self.visit_concat($node);
+        } elsif $type eq 'subrule' {
+            return self.simplify_assertion($node);
+        } else {
+            self.visit_children($node);
+        }
+        $node
     }
 
     method all_subtypes($node, $type) {