# sorear/niecza

Bring Order up to current spec.

• Loading branch information...
colomon committed Dec 5, 2013
1 parent d1cf73b commit 74c1bdad1047c522df8d5b65e13a54aa76e31bcc
Showing with 8 additions and 8 deletions.
1. +8 −8 lib/CORE.setting
 @@ -2212,7 +2212,7 @@ my class EnumMap does Associative { method exists_key(\$k) { self{\$k}:exists } } BEGIN { \$Bool::_enums ::= EnumMap.new("False" => 0, "True" => 1) } -my enum Order (:Increase(-1), :Same(0), :Decrease(1)); +my enum Order (:Less(-1), :Same(0), :More(1), :Decrease(-1), :Increase(1)); proto sub infix:<⊆>(\$, \$ --> Bool) is equiv(&infix:<==>) {*} proto sub infix:<≼>(\$, \$ --> Bool) is equiv(&infix:<==>) {*} @@ -3500,18 +3500,18 @@ multi sub exp(\$x) { \$x.exp } multi sub exp(\$x, \$base) { \$base ** \$x } sub infix:« <=> » is equiv (\$a, \$b) is pure { - \$a < \$b ?? Order::Increase !! \$a > \$b ?? Order::Decrease !! Order::Same + \$a < \$b ?? Order::Less !! \$a > \$b ?? Order::More !! Order::Same } # XXX polymorphic equality sub infix: is equiv (Mu \$a, Mu \$b) { return \$a <=> \$b if \$a ~~ Real && \$b ~~ Real; if \$a ~~ Real { - return Order::Increase if \$a == -Inf; - return Order::Decrease if \$a == Inf; + return Order::Less if \$a == -Inf; + return Order::More if \$a == Inf; } if \$b ~~ Real { - return Order::Increase if \$b == Inf; - return Order::Decrease if \$b == -Inf; + return Order::Less if \$b == Inf; + return Order::More if \$b == -Inf; } return (\$a ~~ Real ?? "(Real)" !! \$a.WHAT.gist) leg (\$b ~~ Real ?? "(Real)" !! \$b.WHAT.gist) @@ -3529,8 +3529,8 @@ sub infix: is equiv (Mu \$a, Mu \$b) { my \$keys = set \$a.keys, \$b.keys; my @keys = \$keys.keys.sort; for @keys -> \$k { - return Order::Decrease unless \$a{\$k} :exists; - return Order::Increase unless \$b{\$k} :exists; + return Order::More unless \$a{\$k} :exists; + return Order::Less unless \$b{\$k} :exists; (my \$r = \$a{\$k} cmp \$b{\$k}) && return \$r; } return Order::Same;

#### 0 comments on commit `74c1bda`

Please sign in to comment.