make fmt

Author: Ekdohibs

middle_end/flambda2/from_lambda/lambda_to_flambda.ml

@@ -1321,7 +1321,8 @@ let rec cps acc env ccenv (lam : L.lambda) (k : cps_continuation)
        [Begin_region] with its parent region. This use of the parent region will
        ensure that the parent does not get deleted unless the try region is
        unused. *)
-    CC.close_let acc ccenv region Not_user_visible Flambda_kind.With_subkind.region
+    CC.close_let acc ccenv region Not_user_visible
+      Flambda_kind.With_subkind.region
       (Begin_region { try_region_parent = Some (Env.current_region env) })
       ~body:(fun acc ccenv ->
         maybe_insert_let_cont "try_with_result" kind k acc env ccenv
@@ -1412,7 +1413,8 @@ let rec cps acc env ccenv (lam : L.lambda) (k : cps_continuation)
        continuation for the code after the body. *)
     let region = Ident.create_local "region" in
     let dbg = Debuginfo.none in
-    CC.close_let acc ccenv region Not_user_visible Flambda_kind.With_subkind.region
+    CC.close_let acc ccenv region Not_user_visible
+      Flambda_kind.With_subkind.region
       (Begin_region { try_region_parent = None })
       ~body:(fun acc ccenv ->
         maybe_insert_let_cont "body_return" Pgenval k acc env ccenv

middle_end/flambda2/simplify_shared/slot_offsets.ml

@@ -192,21 +192,24 @@ module Layout = struct
       let startenv, acc_slots =
         match startenv, acc_slots, is_scanned with
         | Some i, _, _ ->
-          assert (is_scanned);
+          assert is_scanned;
           assert (i < offset);
           startenv, acc_slots
         | None, (o, Function_slot s) :: r, _ ->
           ( (if is_scanned then Some offset else None),
             (o, Function_slot { s with last_function_slot = true }) :: r )
-        | None, [], _ -> Misc.fatal_errorf "Set of closures with no closure slot"
+        | None, [], _ ->
+          Misc.fatal_errorf "Set of closures with no closure slot"
         | None, _, false -> None, acc_slots
         | None, (_, Value_slot { is_scanned = false; _ }) :: _, true ->
           Some offset, acc_slots
-        | None, (_, ((Value_slot { is_scanned = true; _ } | Infix_header) as slot)) :: _, true ->
+        | ( None,
+            (_, ((Value_slot { is_scanned = true; _ } | Infix_header) as slot))
+            :: _,
+            true ) ->
           Misc.fatal_errorf
-            "Expected a function slot or a non-scanned value slot \
-             right before the first value slot, but \
-             found %a"
+            "Expected a function slot or a non-scanned value slot right before \
+             the first value slot, but found %a"
             print_slot slot
       in
       let acc_slots = (offset, slot) :: acc_slots in