add associativity into prec info carried by ops

rakudo · Mar 31, 2015 · 437fd11 · 437fd11
1 parent 978607a
commit 437fd11
Showing 1 changed file with 18 additions and 18 deletions.
diff --git a/src/core/precedence.pm b/src/core/precedence.pm
@@ -4,27 +4,27 @@
 BEGIN {
     my Mu $methodcall       := nqp::hash('prec', 'y=');
     my Mu $autoincrement    := nqp::hash('prec', 'x=');
-    my Mu $exponentiation   := nqp::hash('prec', 'w=');
+    my Mu $exponentiation   := nqp::hash('prec', 'w=', 'assoc', 'right');
     my Mu $symbolic_unary   := nqp::hash('prec', 'v=');
-    my Mu $multiplicative   := nqp::hash('prec', 'u=');
-    my Mu $iffy             := nqp::hash('prec', 'u=', 'iffy', 1);
-    my Mu $additive         := nqp::hash('prec', 't=');
-    my Mu $replication      := nqp::hash('prec', 's=');
-    my Mu $concatenation    := nqp::hash('prec', 'r=');
-    my Mu $junctive_and     := nqp::hash('prec', 'q=');
-    my Mu $junctive_or      := nqp::hash('prec', 'p=');
-    my Mu $structural       := nqp::hash('prec', 'n=');
-    my Mu $chaining         := nqp::hash('prec', 'm=', 'iffy', 1, 'pasttype', 'chain');
-    my Mu $tight_and        := nqp::hash('prec', 'l=');
-    my Mu $tight_or         := nqp::hash('prec', 'k=');
-    my Mu $conditional      := nqp::hash('prec', 'j=', 'iffy', 1);
-    my Mu $item_assignment  := nqp::hash('prec', 'i=');
+    my Mu $multiplicative   := nqp::hash('prec', 'u=', 'assoc', 'left');
+    my Mu $iffy             := nqp::hash('prec', 'u=', 'assoc', 'left', 'iffy', 1);
+    my Mu $additive         := nqp::hash('prec', 't=', 'assoc', 'left');
+    my Mu $replication      := nqp::hash('prec', 's=', 'assoc', 'left');
+    my Mu $concatenation    := nqp::hash('prec', 'r=', 'assoc', 'list');
+    my Mu $junctive_and     := nqp::hash('prec', 'q=', 'assoc', 'list');
+    my Mu $junctive_or      := nqp::hash('prec', 'p=', 'assoc', 'list');
+    my Mu $structural       := nqp::hash('prec', 'n=', 'assoc', 'non');
+    my Mu $chaining         := nqp::hash('prec', 'm=', 'assoc', 'chain', 'iffy', 1, 'pasttype', 'chain');
+    my Mu $tight_and        := nqp::hash('prec', 'l=', 'assoc', 'list');
+    my Mu $tight_or         := nqp::hash('prec', 'k=', 'assoc', 'list');
+    my Mu $conditional      := nqp::hash('prec', 'j=', 'assoc', 'right', 'iffy', 1);
+    my Mu $item_assignment  := nqp::hash('prec', 'i=', 'assoc', 'right');
     my Mu $loose_unary      := nqp::hash('prec', 'h=');
-    my Mu $comma            := nqp::hash('prec', 'g=');
-    my Mu $list_infix       := nqp::hash('prec', 'f=');
+    my Mu $comma            := nqp::hash('prec', 'g=', 'assoc', 'list');
+    my Mu $list_infix       := nqp::hash('prec', 'f=', 'assoc', 'list');
     my Mu $list_prefix      := nqp::hash('prec', 'e=');
-    my Mu $loose_and        := nqp::hash('prec', 'd=');
-    my Mu $loose_or         := nqp::hash('prec', 'c=');
+    my Mu $loose_and        := nqp::hash('prec', 'd=', 'assoc', 'list');
+    my Mu $loose_or         := nqp::hash('prec', 'c=', 'assoc', 'list');
 
     trait_mod:<is>(&postfix:<i>, :prec($methodcall));