Fix precedence of numeric bitshift operators; fixes RT #77232 (masak++).

rakudo · Aug 16, 2010 · 2f18a49 · 2f18a49
1 parent bef86ee
commit 2f18a49
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1795,20 +1795,19 @@ token infix:sym<%%>   { <sym>  <O('%multiplicative')> }
 token infix:sym<+&>   { <sym>  <O('%multiplicative')> }
 token infix:sym<~&>   { <sym>  <O('%multiplicative')> }
 token infix:sym<?&>   { <sym>  <O('%multiplicative')> }
+token infix:sym«+<»   { <sym> <!before '<'> <O('%multiplicative')> }
+token infix:sym«+>»   { <sym> <!before '>'> <O('%multiplicative')> }
 
 token infix:sym«<<» { <sym> \s <.obs('<< to do left shift', '+< or ~<')> }
 
 token infix:sym«>>» { <sym> \s <.obs('>> to do right shift', '+> or ~>')> }
 
-
 token infix:sym<+>    { <sym>  <O('%additive')> }
 token infix:sym<->    { <sym> <![>]> <O('%additive')> }
 token infix:sym<+|>   { <sym>  <O('%additive')> }
 token infix:sym<+^>   { <sym>  <O('%additive')> }
 token infix:sym<~|>   { <sym>  <O('%additive')> }
 token infix:sym<~^>   { <sym>  <O('%additive')> }
-token infix:sym«+<»   { <sym> <!before '<'> <O('%additive')> }
-token infix:sym«+>»   { <sym> <!before '>'> <O('%additive')> }
 token infix:sym<?|>   { <sym>  <O('%additive')> }
 token infix:sym<?^>   { <sym>  <O('%additive')> }