Toss now-unrequired clone callback legacy code.

Raku · Feb 9, 2013 · 6b358a3 · 6b358a3
1 parent 8654841
commit 6b358a3
Showing 1 changed file with 0 additions and 12 deletions.
diff --git a/src/core/NQPRoutine.pm b/src/core/NQPRoutine.pm
@@ -32,10 +32,6 @@ my knowhow NQPRoutine {
         nqp::setcodeobj($do, $der);
 
         # If needed, arrange for a fixup of the cloned code-ref.
-        my $clone_callback := pir::getprop__PPs($!do, 'CLONE_CALLBACK');
-        if nqp::defined($clone_callback) {
-            $clone_callback($!do, $do, $der);
-        }
         unless nqp::isnull($!clone_callback) {
             $!clone_callback($!do, $do, $der);
         }
@@ -334,10 +330,6 @@ my knowhow NQPRoutine {
         nqp::setcodeobj($do, $der);
 
         # If needed, arrange for a fixup of the cloned code-ref.
-        my $clone_callback := pir::getprop__PPs($!do, 'CLONE_CALLBACK');
-        if nqp::defined($clone_callback) {
-            $clone_callback($!do, $do, $der);
-        }
         unless nqp::isnull($!clone_callback) {
             $!clone_callback($!do, $do, $der);
         }
@@ -417,10 +409,6 @@ my knowhow NQPRegex {
         nqp::setcodeobj($do, $der);
 
         # If needed, arrange for a fixup of the cloned code-ref.
-        my $clone_callback := pir::getprop__PPs($!do, 'CLONE_CALLBACK');
-        if nqp::defined($clone_callback) {
-            $clone_callback($!do, $do, $der);
-        }
         unless nqp::isnull($!clone_callback) {
             $!clone_callback($!do, $do, $der);
         }