typed exception for infix in term position

rakudo · May 29, 2012 · e2d8762 · e2d8762
1 parent 92a95c7
commit e2d8762
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -2334,7 +2334,8 @@ grammar Perl6::Grammar is HLL::Grammar {
                 ]
             || <!{ $*QSIGIL }> <postfixish>*
             ]
-        || <!{ $*QSIGIL }> <?before <infixish> { $/.CURSOR.panic("Preceding context expects a term, but found infix " ~ ~$<infixish> ~ " instead"); } >
+        || <!{ $*QSIGIL }> <?before <infixish> {
+            $/.CURSOR.typed_panic('X::Syntax::InfixInTermPosition', infix => ~$<infixish>); } >
         || <!>
         ]
     }

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -590,6 +590,13 @@ my class X::Syntax::Extension::Category does X::Syntax {
     }
 }
 
+my class X::Syntax::InfixInTermPosition does X::Syntax {
+    has $.infix;
+    method message() {
+        "Preceding context expects a term, but found infix $.infix instead";
+    }
+}
+
 my class X::Attribute::Package does X::Comp {
     has $.package-type;
     method message() { "A $.package-type cannot have attributes" }