Stop treating meta-object names as strings, and actually reference th…

…e meta-objects, just as we do with Actions classes.

src/NQP/Actions.pm

@@ -378,12 +378,13 @@ sub package($/) {
 
     # Prefix the class initialization with initial setup. Also install it
     # in the symbol table right away.
+    my $how := %*HOW{~$<sym>};
     $*PACKAGE-SETUP.unshift(PAST::Stmts.new(
         PAST::Op.new( :pasttype('bind'),
             PAST::Var.new( :name('type_obj'), :scope('register'), :isdecl(1) ),
             PAST::Op.new(
                 :pasttype('callmethod'), :name('new_type'),
-                PAST::Var.new( :name(%*HOW{~$<sym>}), :namespace(''), :scope('package') ),
+                PAST::Var.new( :name($how.HOW.name($how)), :namespace(''), :scope('package') ),
                 PAST::Val.new( :value($name), :named('name') )
             )
         ),

src/NQP/Grammar.pm

@@ -10,11 +10,11 @@ method TOP() {
 
     # Package declarator to meta-package mapping.
     my %*HOW;
-    %*HOW<knowhow> := 'KnowHOW';
-    %*HOW<class>   := 'NQPClassHOW';
-    %*HOW<grammar> := 'NQPClassHOW';
-    %*HOW<role>    := 'NQPRoleHOW';
-    %*HOW<native>  := 'NQPNativeHOW';
+    %*HOW<knowhow> := KnowHOW;
+    %*HOW<class>   := NQPClassHOW;
+    %*HOW<grammar> := NQPClassHOW;
+    %*HOW<role>    := NQPParametricRoleHOW;
+    %*HOW<native>  := NQPNativeHOW;
 
     # What attribute class to use with what HOW, plus a default.
     my $*DEFAULT-METAATTR := 'NQPAttribute';