Make Junction ops diffy

Don't allow = metaop with them.
rakudo · Sep 15, 2019 · d708535 · d708535
1 parent fb7c2bc
commit d708535
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -4055,14 +4055,14 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
     token infix:sym<∘>   { <sym>  <O(|%concatenation)> }
     token infix:sym<o>   { <sym>  <O(|%concatenation)> }
 
-    token infix:sym<&>   { <sym> <O(|%junctive_and, :iffy(1))> }
+    token infix:sym<&>   { <sym> <O(|%junctive_and, :iffy(1), :diffy(1))> }
     token infix:sym<(&)> { <sym> <O(|%junctive_and)> }
     token infix:sym«∩»   { <sym> <O(|%junctive_and)> }
     token infix:sym<(.)> { <sym> <O(|%junctive_and)> }
     token infix:sym«⊍»   { <sym> <O(|%junctive_and)> }
 
-    token infix:sym<|>    { <sym> <O(|%junctive_or, :iffy(1))> }
-    token infix:sym<^>    { <sym> <O(|%junctive_or, :iffy(1))> }
+    token infix:sym<|>    { <sym> <O(|%junctive_or, :iffy(1), :diffy(1))> }
+    token infix:sym<^>    { <sym> <O(|%junctive_or, :iffy(1), :diffy(1))> }
     token infix:sym<(|)>  { <sym> <O(|%junctive_or)> }
     token infix:sym«∪»    { <sym> <O(|%junctive_or)> }
     token infix:sym<(^)>  { <sym> <O(|%junctive_or)> }