Fix problem with Mixy (^) Mixy not caught by spectest

rakudo · Apr 26, 2017 · bea8ac6 · bea8ac6
1 parent 9f0b121
commit bea8ac6
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/core/set_operators.pm b/src/core/set_operators.pm
@@ -620,7 +620,7 @@ multi sub infix:<(^)>(Mixy:D $a, Mixy:D $b) {
               nqp::if(
                 (my $diff := nqp::getattr(nqp::iterval($iter),Pair,'$!value')
                   - nqp::getattr(
-                      nqp::atkey($base,nqp::iterkey_s($iter)),
+                      nqp::atkey($elems,nqp::iterkey_s($iter)),
                       Pair,
                       '$!value'
                     )
@@ -634,7 +634,11 @@ multi sub infix:<(^)>(Mixy:D $a, Mixy:D $b) {
                 ),
                 nqp::deletekey($elems,nqp::iterkey_s($iter))
               ),
-              nqp::bindkey($elems,nqp::iterkey_s($iter),nqp::iterval($iter))
+              nqp::bindkey(
+                $elems,
+                nqp::iterkey_s($iter),
+                nqp::clone(nqp::iterval($iter))
+              )
             )
           ),
           nqp::if(