Typed exception for mis-placed |.

rakudo · Apr 2, 2015 · 1457816 · 1457816
1 parent 10cd401
commit 1457816
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -4122,7 +4122,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
     token prefix:sym<^>   { <sym>  <O('%symbolic_unary')> }
     token prefix:sym<|>   {
         <sym> <O('%symbolic_unary')>
-        [ <?{ $*ARG_FLAT_OK }> || <.panic: 'Arg-flattening | is only valid in an argument list'> ]
+        [ <?{ $*ARG_FLAT_OK }> || <.typed_sorry('X::Syntax::ArgFlattener')> ]
     }
 
     token infix:sym<*>    { <sym>  <O('%multiplicative')> }

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -1150,6 +1150,10 @@ my class X::Syntax::DuplicatedPrefix does X::Syntax {
     }
 }
 
+my class X::Syntax::ArgFlattener does X::Syntax {
+    method message() { "Arg-flattening | is only valid in an argument list" }
+}
+
 my class X::Attribute::Package does X::Comp {
     has $.package-kind;
     has $.name;