throw typed exception for non-associative operators

FROGGS · Dec 30, 2012 · 13e8052 · 13e8052
1 parent 7d3e01f
commit 13e8052
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -239,6 +239,10 @@ role STD {
         self.typed_panic('X::Comp::NYI', :$feature)
     }
 
+    method EXPR_nonassoc($cur, $left, $right) {
+        self.typed_panic('X::Syntax::NonAssociative', :left(~$left), :right(~$right));
+    }
+
     # "when" arg assumes more things will become obsolete after Perl 6 comes out...
     method obs($old, $new, $when = 'in Perl 6') {
         $*W.throw(self.MATCH(), ['X', 'Obsolete'],

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -765,6 +765,14 @@ my class X::Syntax::Number::RadixOutOfRange does X::Syntax {
     method message() { "Radix $.radix out of range (allowed: 2..36)" }
 }
 
+my class X::Syntax::NonAssociative does X::Syntax {
+    has $.left;
+    has $.right;
+    method message() {
+        "Operators '$.left' and '$.right' are non-associtiave and require parenthesis";
+    }
+}
+
 my class X::Syntax::Regex::Adverb does X::Syntax {
     has $.adverb;
     has $.construct;