METAOP_ASSIGN needs to want its op in sink context

This fixes the 'use trace; $a -= 1;' problem.
rakudo · Dec 17, 2015 · 54f6edf · 54f6edf
1 parent 6fccc52
commit 54f6edf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -6678,8 +6678,8 @@ class Perl6::Actions is HLL::Actions does STDActions {
             else {
                 $ast := QAST::Op.new( :node($/), :op<call>,
                     QAST::Op.new( :op<call>, :name<&METAOP_ASSIGN>,
-                        ($ast[0] // QAST::Var.new(
-                            :name("&infix" ~ $*W.canonicalize_pair('', $basesym)), :scope('lexical') ))));
+                        WANTED($ast[0] // QAST::Var.new(
+                            :name("&infix" ~ $*W.canonicalize_pair('', $basesym)), :scope('lexical')) ,'infixish')));
             }
         }