Permalink
Browse files

infix:<eqv> is supposed to take Any, Any.

  • Loading branch information...
1 parent 4c7a3f0 commit acd7da077ec664fb951cb2398fa1b2fbede2c696 @colomon colomon committed Feb 27, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/CORE.setting
View
@@ -3204,7 +3204,7 @@ sub infix:<cmp> is equiv<leg> (Mu $a, Mu $b) {
return $a.key cmp $b.key || $a.value cmp $b.value if $a ~~ Pair;
return $a <=> $b;
}
-sub infix:<eqv> is equiv<==> (Mu $a, Mu $b) { ($a cmp $b) == 0 }
+sub infix:<eqv> is equiv<==> (Any $a, Any $b) { ($a cmp $b) == 0 }
sub infix:<before> ($a, $b) is equiv<==> { ($a cmp $b) < 0 }
sub infix:<after> ($a, $b) is equiv<==> { ($a cmp $b) > 0 }
sub seqop($op, \x, \y) { $op(x,y) } # TODO: Special case with hyper

0 comments on commit acd7da0

Please sign in to comment.