Zero-width anchors allow prefix tokens.

perl6 · Oct 23, 2009 · d6f5066 · d6f5066
1 parent 86ff73b
commit d6f5066
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/PAST/Regex.pir b/src/PAST/Regex.pir
@@ -144,6 +144,19 @@ at this node.
 .end
 
 
+.sub 'prefix_anchor' :method
+    .param string prefix
+    .param pmc tail
+
+    unless tail goto anchor_done
+    .local pmc head
+    head = shift tail
+    .tailcall head.'prefix'(prefix, tail :flat)
+  anchor_done:
+    .return (prefix)
+.end
+
+
 .sub 'prefix_concat' :method
     .param string prefix
     .param pmc tail