From 626ff569f623b408ff47e3308e4787b91ba6c6d1 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Tue, 16 Feb 2010 09:03:05 -0600
Subject: [PATCH] Add a more useful nyi error message for supersede.

---
 src/Perl6/Grammar.pm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
index 27bafe9c467..144e19e57c9 100644
--- 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 := '';