Fix reverse to directly delegate on arrays.

So we get the correct exception for reverse(@multi-dim).
rakudo · Dec 13, 2015 · c086506 · c086506
1 parent c2a726e
commit c086506
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -1025,7 +1025,10 @@ multi sub infix:<xx>(Mu \x, Int() $n) is pure {
     nqp::p6bindattrinvres(nqp::create(List), List, '$!reified', $list)
 }
 
-sub reverse(+@a)            { @a.reverse }
+proto sub reverse(|)   { * }
+multi sub reverse(@a)  { @a.reverse }
+multi sub reverse(+@a) { @a.reverse }
+
 sub rotate(@a, Int $n = 1)  { @a.rotate($n) }
 
 sub prefix:<|>(\x) { x.Slip }