Provide $*DECLARAION_NAME for other package-y things

In particular, for enums and subsets.
rakudo · Dec 30, 2019 · 794a7b0 · 794a7b0
1 parent ccd3523
commit 794a7b0
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -2882,6 +2882,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
     token type_declarator:sym<enum> {
         <sym><.kok>
         :my $*IN_DECL := 'enum';
+        :my $*DECLARATION_NAME;
         :my $*DOC := $*DECLARATOR_DOCS;
         { $*DECLARATOR_DOCS := '' }
         :my $*POD_BLOCK;
@@ -2903,6 +2904,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
                     $*W.throw($/, ['X', 'Redeclaration'],
                         symbol => $longname.name(),
                     );
+                    $*DECLARATION_NAME := nqp::hllizefor($longname.name(), 'perl6');
                 }
             }
         | <variable>
@@ -2918,6 +2920,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
 
     rule type_declarator:sym<subset> {
         <sym><.kok> :my $*IN_DECL := 'subset';
+        :my $*DECLARATION_NAME;
         :my $*DOC := $*DECLARATOR_DOCS;
         { $*DECLARATOR_DOCS := '' }
         :my $*POD_BLOCK;
@@ -2942,6 +2945,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
                                 symbol => $longname.name(),
                             );
                         }
+                        $*DECLARATION_NAME := nqp::hllizefor($longname.name(), 'perl6');
                     }
                 ]?
                 { $*IN_DECL := '' }