Add lexical slot for dispatcher to store candidate list holder in met…

…hods.
rakudo · May 5, 2009 · 8009acf · 8009acf
1 parent ee10f59
commit 8009acf
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -795,12 +795,13 @@ method method_def($/) {
         $block.name( ~$<longname> );
     }
 
-    # Add lexical 'self'.
+    # Add lexical 'self' and a slot for the candidate dispatcher list.
     $block[0].unshift(
         PAST::Var.new( :name('self'), :scope('lexical'), :isdecl(1),
             :viviself( PAST::Var.new( :name('self'), :scope('register' ) ) )
         )
     );
+    $block[0].unshift(PAST::Var.new( :name('__CANDIATE_LIST__'), :scope('lexical'), :isdecl(1) ));
 
     $block.control(return_handler_past());
     block_signature($block);