From 135ace1f22cd815b6409d07b4802af58ba5fe0bc Mon Sep 17 00:00:00 2001
From: Solomon Foster <colomon@gmail.com>
Date: Thu, 4 Feb 2010 17:48:39 -0500
Subject: [PATCH] Make "tight_or" list associative rather than left.

---
 src/Perl6/Grammar.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
index 87ae359f79a..336becc9caa 100644
--- a/src/Perl6/Grammar.pm
+++ b/src/Perl6/Grammar.pm
@@ -878,7 +878,7 @@ INIT {
     Perl6::Grammar.O(':prec<n=>, :assoc<left>',  '%structural');
     Perl6::Grammar.O(':prec<m=>, :assoc<left>, :pasttype<chain>',  '%chaining');
     Perl6::Grammar.O(':prec<l=>, :assoc<left>',  '%tight_and');
-    Perl6::Grammar.O(':prec<k=>, :assoc<left>',  '%tight_or');
+    Perl6::Grammar.O(':prec<k=>, :assoc<list>',  '%tight_or');
     Perl6::Grammar.O(':prec<j=>, :assoc<right>', '%conditional');
     Perl6::Grammar.O(':prec<i=>, :assoc<right>', '%item_assignment');
     Perl6::Grammar.O(':prec<h=>, :assoc<unary>', '%loose_unary');