Make sure that regex/token/rule set 'self' (both register and lexical).

pmichaud · pmichaud · commit fbfccdf3e02b · 2011-09-27T10:19:04.000-05:00
diff --git a/src/NQPQ/Actions.pm b/src/NQPQ/Actions.pm
@@ -1041,6 +1041,7 @@ class NQP::Actions is HLL::Actions {
         }
         else {
             my $block := @BLOCK.shift;
+            $block[0].push(PAST::Var.new(:name<self>, :scope<parameter>));
             $block[0].push(
                 PAST::Var.new(:name<self>, :scope<register>, :isdecl(1),
                               :viviself(PAST::Var.new( :name<self>, :scope('lexical_6model') ))));

Original file line number	Diff line number	Diff line change
`@@ -1041,6 +1041,7 @@ class NQP::Actions is HLL::Actions {`
`1041`	`1041`	`}`
`1042`	`1042`	`else {`
`1043`	`1043`	`my $block := @BLOCK.shift;`
	`1044`	`+ $block[0].push(PAST::Var.new(:name<self>, :scope<parameter>));`
`1044`	`1045`	`$block[0].push(`
`1045`	`1046`	`PAST::Var.new(:name<self>, :scope<register>, :isdecl(1),`
`1046`	`1047`	`:viviself(PAST::Var.new( :name<self>, :scope('lexical_6model') ))));`