Fix WhateverCode curries losing use fatal

Bug find: https://irclog.perlgeek.de/perl6/2017-12-13#i_15572636
rakudo · Dec 13, 2017 · 31db3ac · 31db3ac
1 parent 07616ef
commit 31db3ac
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -9502,6 +9502,9 @@ class Perl6::Actions is HLL::Actions does STDActions {
             my %sig_info := hash(parameters => @params);
             my $signature := $*W.create_signature_and_params($/, %sig_info, $block, 'Mu');
             add_signature_binding_code($block, $signature, @params);
+
+            fatalize($block[1]) if $*FATAL;
+
             my $code := $*W.create_code_object($block, 'WhateverCode', $signature);
             $past := block_closure(reference_to_code_object($code, $block));
             $past.returns($WhateverCode);