turn LTA error for coercive type declarations into NYI.

rakudo · Feb 21, 2013 · 9c59a13 · 9c59a13
1 parent 5dfb733
commit 9c59a13
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -2612,6 +2612,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         ]
         # parametric type?
         <.unsp>? [ <?before '['> '[' ~ ']' <arglist> ]?
+        <.unsp>? [ <?before '('> '(' ~ ')' <arglist> <.NYI("coercive type declarations")>]?
         [<.ws> 'of' <.ws> <typename> ]?
     }
 

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -404,7 +404,7 @@ my role X::Pod                 { }
 
 my class X::NYI is Exception {
     has $.feature;
-    method message() { "$.feature is not yet implemented. Sorry. " }
+    method message() { "$.feature not yet implemented. Sorry. " }
 }
 my class X::Comp::NYI is X::NYI does X::Comp { };