Permalink
Browse files

Add infix:<∖> for set difference.

  • Loading branch information...
1 parent 9f58f84 commit cb6f20b6165d9852b971c8b7b063960637a4e490 @colomon colomon committed Jun 19, 2013
Showing with 4 additions and 3 deletions.
  1. +4 −3 lib/CORE.setting
View
@@ -2263,9 +2263,10 @@ only sub infix:<∩>(\|$p) is equiv(&infix:<&>) {
}
only sub infix:<(&)>(\|$p) is equiv(&infix:<&>) { infix:<>(|$p) }
-proto sub infix:<(-)>($, $ --> Set) is equiv(&infix:<^>) {*}
-multi sub infix:<(-)>(Any $a, Any $b --> Set) { $a.Set (-) $b.Set }
-multi sub infix:<(-)>(Set $a, Set $b --> Set) { Set.new: $a.keys.grep: * $b }
+proto sub infix:<∖>($, $ --> Set) is equiv(&infix:<^>) {*}
+multi sub infix:<∖>(Any $a, Any $b --> Set) { $a.Set $b.Set }
+multi sub infix:<∖>(Set $a, Set $b --> Set) { Set.new: $a.keys.grep: * $b }
+only sub infix:<(-)>($a, $b --> Set) is equiv(&infix:<^>) { $a $b }
proto sub infix:<(^)>($, $ --> Set) is equiv(&infix:<^>) {*}
multi sub infix:<(^)>(Any $a, Any $b --> Set) { $a.Set (^) $b.Set }

0 comments on commit cb6f20b

Please sign in to comment.