Prevent mainline Routines from eating return exceptions

sorear · Oct 26, 2011 · 3c4b14d · 3c4b14d
1 parent 4c49318
commit 3c4b14d
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/NieczaGrammar.pm6 b/src/NieczaGrammar.pm6
@@ -38,6 +38,7 @@ grammar P6 is STD::P6 {
             name => "mainline",
             run_once => !$*settingref || ?$*niecza_outer_frame ||
                 $*settingref.run_once);
+        $*CURLEX<!sub>.set_return_pass;
         $*CURLEX{'!sub'}.add_my_name('$_') if !$*settingref;
         $*CURLEX{'!sub'}.set_signature(::GLOBAL::Sig.simple());
         $*unit.set_mainline($*CURLEX<!sub>);