Add OperatorProperties.associative-reversed method

To be used when handling the R meta-operator
rakudo · Sep 6, 2023 · 24c05ee · 24c05ee
1 parent b245dcb
commit 24c05ee
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/Raku/ast/operator-properties.rakumod b/src/Raku/ast/operator-properties.rakumod
@@ -99,6 +99,17 @@ class OperatorProperties {
         )
     }
 
+    # An OperatorProperties object with associative reversed
+    method associative-reversed() {
+        nqp::isconcrete(self)
+          ?? $!associative eq 'left'
+            ?? self.new(:associative<right>, :dba("reversed " ~ $!dba))
+            !! $!associative eq 'right'
+              ?? self.new(:associative<left>, :dba("reversed " ~ $!dba))
+              !! self
+          !! self
+    }
+
     # A readable .raku representation for debugging
     method raku() {
         my str $name := self.HOW.name(self);