From 920efd9f5258557a73d25227a929b5f701ab8343 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Sun, 25 Oct 2009 19:54:20 -0500
Subject: [PATCH] [regex]:  Add 'pastnode' type for PAST::Regex.

---
 src/PAST/Compiler-Regex.pir | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/PAST/Compiler-Regex.pir b/src/PAST/Compiler-Regex.pir
index 76205d6..96d3cac 100644
--- 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