implement autogen of meta nouns

rakudo · Oct 30, 2015 · 52e5dd2 · 52e5dd2
1 parent fe5b300
commit 52e5dd2
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -367,8 +367,9 @@ role STD {
                             $match<postfix_prefix_meta_operator> ||
                             $match<op>)
                         {
-                            # nqp::printfh(nqp::getstderr(), $match.ast.dump);
-                            self.NYI("Autogeneration of $op $cat");
+                            my $META := $match.ast[0];
+                            my $fun := $*W.compile_time_evaluate($var,$META);
+                            $*W.install_lexical_symbol($*UNIT,$name,$fun);
                         }
                         else {
                             $var.CURSOR.add_mystery($name, $var.to, 'var');