catch infix << and >> as obsolete bit shift operators

rakudo · Apr 6, 2010 · b75b2b3 · b75b2b3
1 parent e54dc62
commit b75b2b3
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1605,6 +1605,11 @@ token infix:sym<+&>   { <sym>  <O('%multiplicative')> }
 token infix:sym<~&>   { <sym>  <O('%multiplicative')> }
 token infix:sym<?&>   { <sym>  <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')> }