make it possible to return from macros

Kudos to moritz++ for discovering this use case.
rakudo · Oct 23, 2011 · b1c555f · b1c555f
1 parent 991ade7
commit b1c555f
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1523,6 +1523,14 @@ class Perl6::Actions is HLL::Actions {
 
         $block := $<blockoid>.ast;
         $block.blocktype('declaration');
+        if is_clearly_returnless($block) {
+            $block[1] := PAST::Op.new(
+                :pirop('perl6_decontainerize_return_value PP'),
+                $block[1]);
+        }
+        else {
+            $block[1] := wrap_return_handler($block[1]);
+        }
 
         # Obtain parameters, create signature object and generate code to
         # call binder.