Add nqp::resume(...) for resuming an exception.

Raku · Mar 15, 2013 · cfdcc70 · cfdcc70
1 parent 47effd6
commit cfdcc70
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/QAST/Operations.nqp b/src/QAST/Operations.nqp
@@ -1334,6 +1334,18 @@ QAST::Operations.add_core_pirop_mapping('die_s', 'die', '0s');
 QAST::Operations.add_core_pirop_mapping('die', 'die', '0P');
 QAST::Operations.add_core_pirop_mapping('throw', 'throw', '0P');
 QAST::Operations.add_core_pirop_mapping('rethrow', 'rethrow', '0P');
+QAST::Operations.add_core_op('resume', -> $qastcomp, $op {
+    if +$op.list != 1 {
+        nqp::die("The 'resume' op expects 1 child");
+    }
+    $qastcomp.as_post(QAST::Op.new(
+        :op('call'),
+        QAST::Op.new(
+            :op('atkey'),
+            $op[0],
+            QAST::SVal.new( :value('resume') )
+        )))
+});
 
 # Control exception throwing.
 my %control_map := nqp::hash(