While %tight_or is indeed list associative, because of the way we com…

…pile short-circuit || and //, we need to have them marked as left associative. Fixes RT#73774.
rakudo · Mar 25, 2010 · dfbd1d5 · dfbd1d5
1 parent d0bf6e3
commit dfbd1d5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1323,9 +1323,9 @@ token infix:sym<~~>   { <sym>  <O('%chaining')> }
 
 token infix:sym<&&>   { <sym>  <O('%tight_and, :pasttype<if>')> }
 
-token infix:sym<||>   { <sym>  <O('%tight_or, :pasttype<unless>')> }
+token infix:sym<||>   { <sym>  <O('%tight_or, :assoc<left>, :pasttype<unless>')> }
 token infix:sym<^^>   { <sym>  <O('%tight_or, :pasttype<xor>')> }
-token infix:sym<//>   { <sym>  <O('%tight_or, :pasttype<def_or>')> }
+token infix:sym<//>   { <sym>  <O('%tight_or, :assoc<left>, :pasttype<def_or>')> }
 token infix:sym<min>  { <sym>  <O('%tight_or')> }
 token infix:sym<max>  { <sym>  <O('%tight_or')> }