Skip to content

Commit

Permalink
Unbust build after recent World changes.
Browse files Browse the repository at this point in the history
  • Loading branch information
jnthn committed Apr 24, 2013
1 parent ab9a836 commit dea4f25
Show file tree
Hide file tree
Showing 2 changed files with 8 additions and 2 deletions.
3 changes: 3 additions & 0 deletions src/Perl6/Actions.nqp
Expand Up @@ -366,6 +366,9 @@ class Perl6::Actions is HLL::Actions does STDActions {
$compunit<UNIT> := $unit;
$compunit<GLOBALish> := $*GLOBALish;
$compunit<W> := $*W;

# Do any final compiler state cleanup tasks.
$*W.cleanup();

make $compunit;
}
Expand Down
7 changes: 5 additions & 2 deletions src/Perl6/World.nqp
Expand Up @@ -1750,13 +1750,16 @@ class Perl6::World is HLL::World {
}
}

# Runs the CHECK phasers and twiddles the QAST to look them up. Also
# runs any other cleanup tasks.
# Runs the CHECK phasers and twiddles the QAST to look them up.
method CHECK() {
for @!CHECKs {
my $result := $_[0]();
$_[1][0] := self.add_constant_folded_result($result);
}
}

# Does any cleanups needed after compilation.
method cleanup() {
for @!cleanup_tasks { $_() }
}

Expand Down

0 comments on commit dea4f25

Please sign in to comment.