Skip to content
Permalink
Browse files

Compile a block's exception handlers in predictable order

  • Loading branch information...
niner committed Apr 26, 2019
1 parent 7926cdd commit 95af2f4c30ee615653110b9e0c476e481cbe178c
Showing with 4 additions and 3 deletions.
  1. +4 −3 src/Perl6/Actions.nqp
@@ -1805,9 +1805,10 @@ class Perl6::Actions is HLL::Actions does STDActions {
$past.push(QAST::WVal.new(:value($ret))) if nqp::isconcrete($ret) || $ret.HOW.name($ret) eq 'Nil';
if %*HANDLERS {
$past := QAST::Op.new( :op('handle'), $past );
for %*HANDLERS {
$past.push($_.key);
$past.push($_.value);
my %handlers := %*HANDLERS;
for sorted_keys(%handlers) {
$past.push($_);
$past.push(%handlers{$_});
}
}
$past

0 comments on commit 95af2f4

Please sign in to comment.
You can’t perform that action at this time.