From dd67e2514699fff12fc98ac394fdeded3925c908 Mon Sep 17 00:00:00 2001
From: Carl Masak <cmasak@gmail.com>
Date: Tue, 30 Jun 2015 22:58:44 +0200
Subject: [PATCH] remove auto-adding of *%_ in methods

---
 src/Perl6/World.nqp | 14 --------------
 1 file changed, 14 deletions(-)

diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
index 5e941b7f537..3f7312448a5 100644
--- a/src/Perl6/World.nqp
+++ b/src/Perl6/World.nqp
@@ -1513,7 +1513,6 @@ class Perl6::World is HLL::World {
     # object wrapping them.
     method create_signature_and_params($/, %signature_info, $lexpad, $default_type_name,
             :$no_attr_check, :$rw, :$method, :$invocant_type) {
-        # If it's a method, add auto-slurpy.
         my @params := %signature_info<parameters>;
         if $method {
             unless @params[0]<is_invocant> {
@@ -1523,19 +1522,6 @@ class Perl6::World is HLL::World {
                     is_multi_invocant => 1
                 ));
             }
-            unless @params[+@params - 1]<named_slurpy> || @params[+@params - 1]<is_capture> {
-                unless nqp::can($*PACKAGE.HOW, 'hidden') && $*PACKAGE.HOW.hidden($*PACKAGE) {
-                    @params.push(hash(
-                        variable_name => '%_',
-                        nominal_type => self.find_symbol(['Mu']),
-                        named_slurpy => 1,
-                        is_multi_invocant => 1,
-                        sigil => '%'
-                    ));
-                    $lexpad[0].unshift(QAST::Var.new( :name('%_'), :scope('lexical'), :decl('var') ));
-                    $lexpad.symbol('%_', :scope('lexical'));
-                }
-            }
         }
 
         # Walk parameters, setting up parameter objects.