export trait for constants

docs/ChangeLog

@@ -5,6 +5,7 @@ New in 2012.09
 + support for indirect type names in routine and type declarations
 + compiler now built with QAST-based NQP, which generates better code, thus
   making the compiler a little faster
++ support for "is export" traits on constants
 
 New in 2012.08
 + tclc implemented

src/Perl6/Actions.pm

@@ -2697,6 +2697,11 @@ class Perl6::Actions is HLL::Actions {
             $*W.install_package($/, [$name], ($*SCOPE || 'our'),
                 'constant', $*PACKAGE, $*W.cur_lexpad(), $value);
         }
+        $*W.ex-handle($/, {
+            for $<trait> -> $t {
+                ($t.ast)($value, :SYMBOL($name));
+            }
+        });
 
         # Evaluate to the constant.
         make QAST::WVal.new( :value($value) );
@@ -3146,8 +3151,8 @@ class Perl6::Actions is HLL::Actions {
                 my %arg;
                 %arg{~$<longname>} := @trait_arg ?? @trait_arg[0] !!
                     $*W.find_symbol(['Bool', 'True']);
-                make -> $declarand {
-                    $*W.apply_trait($/, '&trait_mod:<is>', $declarand, |%arg);
+                make -> $declarand, *%additional {
+                    $*W.apply_trait($/, '&trait_mod:<is>', $declarand, |%arg, |%additional);
                 };
             }
         }

src/core/traits.pm

@@ -124,6 +124,13 @@ multi trait_mod:<is>(Mu:U \type, :$export!) {
                        'DEFAULT');
     EXPORT_SYMBOL($exp_name, @tags, type);
 }
+# for constants
+multi trait_mod:<is>(Mu \sym, :$export!, :$SYMBOL!) {
+    my @tags = 'ALL', ($export ~~ Pair ?? $export.key !!
+                    $export ~~ Positional ?? @($export)>>.key !!
+                    'DEFAULT');
+    EXPORT_SYMBOL($SYMBOL, @tags, sym);
+}
 
 multi trait_mod:<is>(Mu:D $docee, :$docs!) {
     $docee does role {