Add a more useful nyi error message for supersede.

rakudo · Feb 16, 2010 · 626ff56 · 626ff56
1 parent fd288ff
commit 626ff56
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -552,10 +552,13 @@ token multi_declarator:sym<null> {
 }
 
 proto token scope_declarator { <...> }
-token scope_declarator:sym<my>      { <sym> <scoped('my')> }
-token scope_declarator:sym<our>     { <sym> <scoped('our')> }
-token scope_declarator:sym<has>     { <sym> <scoped('has')> }
-token scope_declarator:sym<augment> { <sym> <scoped('augment')> }
+token scope_declarator:sym<my>        { <sym> <scoped('my')> }
+token scope_declarator:sym<our>       { <sym> <scoped('our')> }
+token scope_declarator:sym<has>       { <sym> <scoped('has')> }
+token scope_declarator:sym<augment>   { <sym> <scoped('augment')> }
+token scope_declarator:sym<supercede> { 
+    <sym> <.panic: '"supercede" not yet implemented'>
+}
 
 rule scoped($*SCOPE) {
     :my $*TYPENAME := '';