Simplify installation part of constant action method to re-use more S…

…ymbolTable code.
rakudo · Aug 8, 2011 · 1701656 · 1701656
1 parent af72bd3
commit 1701656
Showing 1 changed file with 2 additions and 10 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1746,16 +1746,8 @@ class Perl6::Actions is HLL::Actions {
             }
 
             # Install.
-            if $*SCOPE eq '' || $*SCOPE eq 'our' {
-                $*ST.install_lexical_symbol($*ST.cur_lexpad(), $name, $value);
-                $*ST.install_package_symbol($*PACKAGE, $name, $value);
-            }
-            elsif $*SCOPE eq 'my' {
-                $*ST.install_lexical_symbol($*ST.cur_lexpad(), $name, $value);
-            }
-            else {
-                $/.CURSOR.panic("$*SCOPE scoped constants are not yet implemented");
-            }
+            $*ST.install_package($/, [$name], ($*SCOPE || 'our'),
+                'constant', $*PACKAGE, $*ST.cur_lexpad(), $value);
 
             # Evaluate to the constant.
             return $*ST.get_object_sc_ref_past($value);