[regex]: Add 'pastnode' type for PAST::Regex.

perl6 · Oct 26, 2009 · 920efd9 · 920efd9
1 parent a669f19
commit 920efd9
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/PAST/Compiler-Regex.pir b/src/PAST/Compiler-Regex.pir
@@ -729,6 +729,17 @@ second child of this node.
 .end
 
 
+=item 'pastnode'(PAST::Regex node)
+
+=cut
+
+.sub 'pastnode' :method :multi(_, ['PAST';'Regex'])
+    .param pmc node
+    $P0 = node[0]
+    .tailcall self.'as_post'($P0)
+.end
+
+
 =item pass(PAST::Regex node)
 
 =cut