Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit acd7da077ec664fb951cb2398fa1b2fbede2c696 1 parent 4c7a3f0
@colomon colomon authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  lib/CORE.setting
View
2  lib/CORE.setting
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.