set_precedes \a -> $a optimizations

rakudo · Sep 23, 2021 · 72863b3 · 72863b3
1 parent 011d1ae
commit 72863b3
Showing 1 changed file with 17 additions and 17 deletions.
diff --git a/src/core.c/set_precedes.pm6 b/src/core.c/set_precedes.pm6
@@ -15,11 +15,11 @@ proto sub infix:<<(<+)>>($, $, *% --> Bool:D) is pure {
     ) unless $*INTERNAL;
     {*}
 }
-multi sub infix:<<(<+)>>(Setty:D \a, QuantHash:D \b --> Bool:D) {
+multi sub infix:<<(<+)>>(Setty:D $a, QuantHash:D $b --> Bool:D) {
     nqp::if(
-      (my \araw := a.RAW-HASH),
+      (my \araw := $a.RAW-HASH),
       nqp::if(
-        (my \braw := b.RAW-HASH)
+        (my \braw := $b.RAW-HASH)
           && nqp::isge_i(nqp::elems(braw),nqp::elems(araw)),
         nqp::stmts(
           (my \iter := nqp::iterator(araw)),
@@ -34,11 +34,11 @@ multi sub infix:<<(<+)>>(Setty:D \a, QuantHash:D \b --> Bool:D) {
       True
     )
 }
-multi sub infix:<<(<+)>>(Mixy:D \a, Baggy:D \b --> Bool:D) {
+multi sub infix:<<(<+)>>(Mixy:D $a, Baggy:D $b --> Bool:D) {
     nqp::if(
-      (my \araw := a.RAW-HASH),
+      (my \araw := $a.RAW-HASH),
       nqp::if(
-        (my \braw:= b.RAW-HASH)
+        (my \braw:= $b.RAW-HASH)
           && nqp::isge_i(nqp::elems(braw),nqp::elems(araw)),
         nqp::stmts(
           (my \iter := nqp::iterator(araw)),
@@ -61,11 +61,11 @@ multi sub infix:<<(<+)>>(Mixy:D \a, Baggy:D \b --> Bool:D) {
       True
     )
 }
-multi sub infix:<<(<+)>>(Baggy:D \a, Baggy:D \b --> Bool:D) {
+multi sub infix:<<(<+)>>(Baggy:D $a, Baggy:D $b --> Bool:D) {
     nqp::if(
-      (my \araw := a.RAW-HASH),
+      (my \araw := $a.RAW-HASH),
       nqp::if(
-        (my \braw := b.RAW-HASH)
+        (my \braw := $b.RAW-HASH)
           && nqp::isge_i(nqp::elems(braw),nqp::elems(araw)),
         nqp::stmts(
           (my \iter := nqp::iterator(araw)),
@@ -90,8 +90,8 @@ multi sub infix:<<(<+)>>(Baggy:D \a, Baggy:D \b --> Bool:D) {
       True
     )
 }
-multi sub infix:<<(<+)>>(QuantHash:U $a, QuantHash:U $b --> True ) {}
-multi sub infix:<<(<+)>>(QuantHash:U $a, QuantHash:D $b --> True ) {}
+multi sub infix:<<(<+)>>(QuantHash:U $a, QuantHash:U $b --> True ) { }
+multi sub infix:<<(<+)>>(QuantHash:U $a, QuantHash:D $b --> True ) { }
 multi sub infix:<<(<+)>>(QuantHash:D $a, QuantHash:U $b --> Bool:D ) {
     not $a.elems
 }
@@ -100,13 +100,13 @@ multi sub infix:<<(<+)>>(QuantHash:D $a, QuantHash:D $b --> Bool:D ) {
     True
 }
 
-multi sub infix:<<(<+)>>(Any $, Failure:D $b) { $b.throw }
-multi sub infix:<<(<+)>>(Failure:D $a, Any $) { $a.throw }
-multi sub infix:<<(<+)>>(Any $a, Any $b --> Bool:D) {
+multi sub infix:<<(<+)>>(Any, Failure:D $b) { $b.throw }
+multi sub infix:<<(<+)>>(Failure:D $a, Any) { $a.throw }
+multi sub infix:<<(<+)>>(Any \a, Any \b --> Bool:D) {
     my $*INTERNAL = 1;
-    nqp::istype($a,Mixy) || nqp::istype($b,Mixy)
-      ?? infix:<<(<+)>>($a.Mix, $b.Mix)
-      !! infix:<<(<+)>>($a.Bag, $b.Bag)
+    nqp::istype(a,Mixy) || nqp::istype(b,Mixy)
+      ?? infix:<<(<+)>>(a.Mix, b.Mix)
+      !! infix:<<(<+)>>(a.Bag, b.Bag)
 }
 
 # U+227C PRECEDES OR EQUAL TO