Make all non-texas set operators aliases where possible

rakudo · Jul 13, 2017 · f6025eb · f6025eb
1 parent b1c412a
commit f6025eb
Show file tree

Hide file tree

Showing 8 changed files with 13 additions and 24 deletions.
diff --git a/src/core/set_addition.pm b/src/core/set_addition.pm
@@ -157,9 +157,8 @@ multi sub infix:<(+)>(**@p) is pure {
         $baghash.Bag(:view);
     }
 }
+
 # U+228E MULTISET UNION
-only sub infix:<⊎>(|p) is pure {
-    infix:<(+)>(|p);
-}
+my constant &infix:<⊎> := &infix:<(+)>;
 
 # vim: ft=perl6 expandtab sw=4
diff --git a/src/core/set_difference.pm b/src/core/set_difference.pm
@@ -128,8 +128,6 @@ multi sub infix:<(-)>(**@p) {
 }
 
 # U+2216 SET MINUS
-only sub infix:<∖>(|p) is pure {
-    infix:<(-)>(|p);
-}
+my constant &infix:<∖> := &infix:<(-)>;
 
 # vim: ft=perl6 expandtab sw=4
diff --git a/src/core/set_elem.pm b/src/core/set_elem.pm
@@ -67,10 +67,10 @@ multi sub infix:<(elem)>(Any $a, QuantHash:D $b --> Bool:D) {
 multi sub infix:<(elem)>(Any $a, Any $b --> Bool:D) {
     $a (elem) $b.Set(:view);
 }
+
 # U+2208 ELEMENT OF
-only sub infix:<∈>($a, $b --> Bool:D) is pure {
-    $a (elem) $b;
-}
+my constant &infix:<∈> := &infix:<(elem)>;
+
 # U+2209 NOT AN ELEMENT OF
 only sub infix:<∉>($a, $b --> Bool:D) is pure {
     not $a (elem) $b;

diff --git a/src/core/set_intersection.pm b/src/core/set_intersection.pm
@@ -171,8 +171,6 @@ multi sub infix:<(&)>(**@p) {
     }
 }
 # U+2229 INTERSECTION
-only sub infix:<∩>(|p) is pure {
-    infix:<(&)>(|p);
-}
+my constant &infix:<∩> := &infix:<(&)>;
 
 # vim: ft=perl6 expandtab sw=4
diff --git a/src/core/set_multiply.pm b/src/core/set_multiply.pm
@@ -74,8 +74,6 @@ multi sub infix:<(.)>(**@p) is pure {
     }
 }
 # U+228D MULTISET MULTIPLICATION
-only sub infix:<⊍>(|p) is pure {
-    infix:<(.)>(|p);
-}
+my constant &infix:<⊍> := &infix:<(.)>;
 
 # vim: ft=perl6 expandtab sw=4
diff --git a/src/core/set_proper_subset.pm b/src/core/set_proper_subset.pm
@@ -116,9 +116,8 @@ multi sub infix:<<(<)>>(Failure $a, Any     $b) { $a.throw }
 multi sub infix:<<(<)>>(Any     $a, Failure $b) { $b.throw }
 
 # U+2282 SUBSET OF
-only sub infix:<⊂>($a, $b --> Bool:D) is pure {
-    $a (<) $b;
-}
+my constant &infix:<⊂> := &infix:<<(<)>>;
+
 # U+2284 NOT A SUBSET OF
 only sub infix:<⊄>($a, $b --> Bool:D) is pure {
     not $a (<) $b;

diff --git a/src/core/set_subset.pm b/src/core/set_subset.pm
@@ -139,9 +139,8 @@ multi sub infix:<<(<=)>>(Failure $a, Any     $b) { $a.throw }
 multi sub infix:<<(<=)>>(Any     $a, Failure $b) { $b.throw }
 
 # U+2286 SUBSET OF OR EQUAL TO
-only sub infix:<⊆>($a, $b --> Bool:D) is pure {
-    $a (<=) $b;
-}
+my constant &infix:<⊆> := &infix:<<(<=)>>;
+
 # U+2288 NEITHER A SUBSET OF NOR EQUAL TO
 only sub infix:<⊈>($a, $b --> Bool:D) is pure {
     not $a (<=) $b;

diff --git a/src/core/set_union.pm b/src/core/set_union.pm
@@ -169,8 +169,6 @@ multi sub infix:<(|)>(**@p) {
     }
 }
 # U+222A UNION
-only sub infix:<∪>(|p) is pure {
-    infix:<(|)>(|p);
-}
+my constant &infix:<∪> := &infix:<(|)>;
 
 # vim: ft=perl6 expandtab sw=4