Fix incorrect use of cleardispatcher for takenextdispatcher

rakudo · Mar 5, 2020 · 508cb7e · 508cb7e
1 parent b88cef3
commit 508cb7e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Perl6/Optimizer.nqp b/src/Perl6/Optimizer.nqp
@@ -703,7 +703,9 @@ my class BlockVarOptimizer {
             while $iter {
                 nqp::shift($iter);
                 my $op := nqp::iterval($iter);
-                $op.op('cleardispatcher');
+                my $name := nqp::iterkey_s($iter);
+                # Replace 'take' with 'clear' in the op name.
+                $op.op(nqp::replace($name, 0, 4, 'clear'));
                 $op.shift();
             }
         }