Update Perl6::Actions to grab dynamic outer compilation via HLL::Actions

instead of maintaining its own.
rakudo · May 26, 2010 · fd769c8 · fd769c8
1 parent 39c38ca
commit fd769c8
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 10 deletions.
diff --git a/build/PARROT_REVISION b/build/PARROT_REVISION
@@ -1 +1 @@
-46991
+47022
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -245,15 +245,10 @@ method newpad($/) {
 }
 
 method outerlex($/) {
-    my $outer_ctx := %*COMPILING<%?OPTIONS><outer_ctx>;
-    if pir::defined__IP($outer_ctx) {
-        my $block := @BLOCK[0];
-        my %lexinfo := Perl6::Compiler.get_lexinfo($outer_ctx);
-        for %lexinfo { $block.symbol($_.key, :scope<lexical>); }
-        my @ns := pir::getattribute__PPs($outer_ctx, 'current_namespace').get_name;
-        @ns.shift;
-        $block.namespace(@ns);
-    }
+    # Use SET_BLOCK_OUTER_CTX (inherited from HLL::Actions)
+    # to set dynamic outer lexical context and namespace details
+    # for the compilation unit.
+    self.SET_BLOCK_OUTER_CTX(@BLOCK[0]);
 }
 
 method finishpad($/) {