p6handletake is no longer needed either jnthn++

rakudo · Jun 21, 2013 · 224e81b · 224e81b
1 parent e7596b6
commit 224e81b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 6 deletions.
diff --git a/src/core/GatherIter.pm b/src/core/GatherIter.pm
@@ -22,8 +22,8 @@ class GatherIter is Iterator {
             });
         }
         $state := sub () is rw {
-            nqp::p6handletake( $block().eager(),
-                ($takings := nqp::getpayload(nqp::exception()); yield(); nqp::resume(nqp::exception())));
+            nqp::handle( $block().eager(),
+                'TAKE', ($takings := nqp::getpayload(nqp::exception()); yield(); nqp::resume(nqp::exception())));
             $takings := $SENTINEL; yield();
         };
         my $coro := sub () is rw { nqp::continuationreset($GATHER_PROMPT, $state); $takings };

diff --git a/src/vm/jvm/Perl6/Ops.nqp b/src/vm/jvm/Perl6/Ops.nqp
@@ -139,10 +139,6 @@ my $p6bool := -> $qastcomp, $op {
 };
 $ops.add_hll_op('perl6', 'p6bool', $p6bool);
 
-$ops.add_hll_op('perl6', 'p6handletake', -> $qastcomp, $op {
-    $qastcomp.as_jast(QAST::Op.new( :op('handle'), $op[0], 'TAKE', $op[1]));
-});
-
 $ops.add_hll_op('perl6', 'p6invokeflat', -> $qastcomp, $op {
     $op[1].flat(1);
     $qastcomp.as_jast(QAST::Op.new( :op('call'), $op[0], $op[1]));