Classic inlining and continuations continued (exceptions) (ocaml-flam…

…bda#733)
lukemaurer · Jul 15, 2022 · 2bb1959 · 2bb1959
1 parent 73e0a49
commit 2bb1959
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/middle_end/flambda2/from_lambda/closure_conversion.ml b/middle_end/flambda2/from_lambda/closure_conversion.ml
@@ -912,6 +912,11 @@ let close_exact_or_unknown_apply acc env
     | Not_inlinable -> Expr_with_acc.create_apply acc apply
     | Inlinable func_desc ->
       let acc = Acc.mark_continuation_as_untrackable continuation acc in
+      let acc =
+        Acc.mark_continuation_as_untrackable
+          (Exn_continuation.exn_handler apply_exn_continuation)
+          acc
+      in
       Inlining.inline acc ~apply ~apply_depth:(Env.current_depth env) ~func_desc
   else Expr_with_acc.create_apply acc apply