Add aliased assertion captures.

perl6 · Oct 13, 2009 · 76c694d · 76c694d
1 parent 032c58a
commit 76c694d
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/src/Regex/P6Regex/Actions.pm b/src/Regex/P6Regex/Actions.pm
@@ -244,8 +244,15 @@ method assertion:sym<method>($/) {
 
 method assertion:sym<name>($/) {
     my $name := ~$<longname>;
-    my $past := PAST::Regex.new( $name, :name($name) , :pasttype('subrule'),
-                                 :subtype('capture') );
+    my $past;
+    if $<assertion> {
+        $past := $<assertion>[0].ast;
+        $past.name($name);
+    }
+    else {
+        $past := PAST::Regex.new( $name, :name($name) , :pasttype('subrule'),
+                                  :subtype('capture') );
+    }
     make $past;
 }