Permalink
Browse files

removed unused sub

  • Loading branch information...
FROGGS committed Jan 1, 2013
1 parent 70ba58a commit f11ea2256ac5a58d4c3c82591081b82eaf78f71e
Showing with 0 additions and 17 deletions.
  1. +0 −17 src/Perl6/World.pm
View
@@ -348,23 +348,6 @@ class Perl6::World is HLL::World {
1;
}
- # Adds code to do the signature binding.
- sub add_signature_binding_code($block, $sig_obj, @params) {
- # Set arity.
- my int $arity := 0;
- $block.arity($arity);
-
- # Flag that we do custom arguments processing, and invoke the binder.
- # Need to expose the arguments as a lexical, for things like deferral.
- $block.custom_args(1);
- $block[0].push(QAST::Op.new( :op('bind'),
- QAST::Var.new( :name('call_sig'), :scope('lexical'), :decl('var') ),
- QAST::Op.new( :op('p6getcallsig') ) ));
- $block[0].push(QAST::Op.new( :op('p6bindsig') ));
-
- $block;
- }
-
# Installs something package-y in the right place, creating the nested
# pacakges as needed.
method install_package($/, @name_orig, $scope, $pkgdecl, $package, $outer, $symbol) {

0 comments on commit f11ea22

Please sign in to comment.