Skip to content

Commit

Permalink
infix:<eqv> is supposed to take Any, Any.
Browse files Browse the repository at this point in the history
  • Loading branch information
colomon committed Feb 27, 2012
1 parent 4c7a3f0 commit acd7da0
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion lib/CORE.setting
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit acd7da0

Please sign in to comment.