Skip to content

Commit

Permalink
Eliminate final .loadinit(...) usage.
Browse files Browse the repository at this point in the history
  • Loading branch information
jnthn committed Jun 26, 2012
1 parent 93627fc commit 85bbebb
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions src/QPerl6/Actions.pm
Expand Up @@ -251,11 +251,12 @@ class QPerl6::Actions is HLL::Actions {
# We'll install our view of GLOBAL as the main one; any other
# compilation unit that is using this one will then replace it
# with its view later (or be in a position to restore it).
$unit.loadinit().push(PAST::Op.new(
my $global_install := PAST::Op.new(
:pasttype('bind_6model'),
PAST::Var.new( :name('GLOBAL'), :namespace([]), :scope('package') ),
QAST::WVal.new( :value($*GLOBALish) )
));
);
$*W.add_fixup_task(:deserialize_past($global_install), :fixup_past($global_install));

# Mainline should have fresh lexicals.
$*W.get_static_lexpad($unit).set_fresh_magicals();
Expand Down

0 comments on commit 85bbebb

Please sign in to comment.