Fix @A[0;0] autoviv

rakudo · Jan 28, 2015 · 5275eb9 · 5275eb9
1 parent 358d1d9
commit 5275eb9
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/core/array_slice.pm b/src/core/array_slice.pm
@@ -246,7 +246,7 @@ multi sub postcircumfix:<[ ]>(\SELF, Whatever:D, :$v!, *%other) is rw {
 multi sub postcircumfix:<[ ]>(\SELF, HyperWhatever:D $, *%adv) is rw {
     X::NYI.new(feature => 'HyperWhatever in array index').throw;
 }
-multi sub postcircumfix:<[ ]>(\SELF, HyperWhatever:D $, Mu \assignee, *%adv) is rw {
+multi sub postcircumfix:<[ ]>(\SELF, HyperWhatever:D $, Mu \assignee) is rw {
     X::NYI.new(feature => 'HyperWhatever in array index').throw;
 }
 
@@ -300,11 +300,11 @@ multi sub postcircumfix:<[ ]> (\SELF is rw, LoL:D \keys, *%adv) is rw {
         postcircumfix:<[ ]>(SELF, keys[0].elems > 1 ?? keys[0].list !! keys[0] , |%adv);
     }
 }
-multi sub postcircumfix:<[ ]> (\SELF is rw, LoL:D \keys, Mu \assignee, *%adv) is rw {
+multi sub postcircumfix:<[ ]> (\SELF is rw, LoL:D \keys, Mu \assignee) is rw {
     if keys > 1 {
-        postcircumfix:<[ ]>(SELF, keys, |%adv) = assignee;
+        SELF[keys[0]][keys[1..*]] = assignee;
     } else {
-        postcircumfix:<[ ]>(SELF, keys[0], assignee, |%adv);
+        SELF[keys[0]] = assignee;
     }
 }