Refactor named_assertion method a bit.

perl6 · Jul 20, 2010 · b09bf8d · b09bf8d
1 parent 11cd811
commit b09bf8d
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/Regex/P6Regex/Actions.pm b/src/Regex/P6Regex/Actions.pm
@@ -408,6 +408,12 @@ method assertion:sym<name>($/) {
     }
     else {
         $past := self.named_assertion($/);
+        if $<nibbler> {
+            $past.push( buildsub($<nibbler>[0].ast) );
+        }
+        elsif $<arglist> {
+            for $<arglist>[0].ast.list { $past.push( $_ ); }
+        }
     }
     make $past;
 }
@@ -585,11 +591,5 @@ method named_assertion($/) {
     my $name := ~$<longname>;
     my $past := PAST::Regex.new( $name, :name($name),
                                 :pasttype('subrule'), :subtype('capture'), :node($/) );
-    if $<nibbler> {
-        $past.push( buildsub($<nibbler>[0].ast) );
-    }
-    elsif $<arglist> {
-        for $<arglist>[0].ast.list { $past.push( $_ ); }
-    }
     $past;
 }