Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

infix:<eqv> should be equal only if the two operands are of the same …

…type.
  • Loading branch information...
commit 07dcc9e4616977f18d70fee97a937d772a901a57 1 parent 856e494
Solomon Foster colomon authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  lib/CORE.setting
2  lib/CORE.setting
View
@@ -3295,7 +3295,7 @@ sub infix:<cmp> is equiv<leg> (Mu $a, Mu $b) {
}
return $a <=> $b;
}
-sub infix:<eqv> is equiv<==> (Any $a, Any $b) { ($a cmp $b) == 0 }
+sub infix:<eqv> is equiv<==> (Any $a, Any $b) { ($a.WHAT.gist cmp $b.WHAT.gist) == 0 && ($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.