Quick crack at non-literal constants.

rakudo · Mar 1, 2012 · 455035f · 455035f
1 parent 2aa69ed
commit 455035f
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -2239,8 +2239,9 @@ class Perl6::Actions is HLL::Actions {
             $value := $value_ast<compile_time_value>;
         }
         else {
-            my $name := ~($<identifier> // $<variable>);
-            $/.CURSOR.panic("Cannot handle constant $name with non-literal value yet");
+            my $value_thunk := make_thunk($value_ast, $/);
+            $value := $value_thunk();
+            $*W.add_constant_folded_result($value);
         }
 
         # Provided it's named, install it.