Support for nqp::const.

rakudo · Feb 17, 2013 · 10dac76 · 10dac76
1 parent d2795bb
commit 10dac76
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -3823,6 +3823,10 @@ class Perl6::Actions is HLL::Actions does STDActions {
         make $past;
     }
 
+    method term:sym<nqp::const>($/) {
+        make QAST::Op.new( :op('const'), :name(~$<const>) );
+    }
+
     method term:sym<*>($/) {
         my $whatever := $*W.find_symbol(['Whatever']);
         make QAST::Op.new(

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -2484,6 +2484,10 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         'nqp::' $<op>=[\w+] <args>?
     }
 
+    token term:sym<nqp::const> {
+        'nqp::const::' $<const>=[\w+]
+    }
+
     token term:sym<name> {
         <longname>
         :my $*longname;