Make exponentiation right associative, as per STD.pm.

rakudo · Jan 11, 2010 · f790e5a · f790e5a
1 parent 3f06c7e
commit f790e5a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -850,7 +850,7 @@ token circumfix:sym<sigil> { <sigil> '(' ~ ')' <semilist> }
 INIT {
     Perl6::Grammar.O(':prec<y=>, :assoc<unary>', '%methodcall');
     Perl6::Grammar.O(':prec<x=>, :assoc<unary>', '%autoincrement');
-    Perl6::Grammar.O(':prec<w=>, :assoc<left>',  '%exponentiation');
+    Perl6::Grammar.O(':prec<w=>, :assoc<right>', '%exponentiation');
     Perl6::Grammar.O(':prec<v=>, :assoc<unary>', '%symbolic_unary');
     Perl6::Grammar.O(':prec<u=>, :assoc<left>',  '%multiplicative');
     Perl6::Grammar.O(':prec<t=>, :assoc<left>',  '%additive');