Fix buggy order in pattern matching

OlivierNicole · Sep 6, 2023 · 933a970 · 933a970
1 parent 004aa40
commit 933a970
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/compiler/lib/effects.ml b/compiler/lib/effects.ml
@@ -1428,11 +1428,10 @@ let f (p, live_vars) =
         debug_print "@[<v>After lambda lifting...@,";
         Code.Print.program (fun _ _ -> "") p;
         debug_print "@]");
-        p, lifter_functions, cps_needed)
-    else (
+      p, lifter_functions, cps_needed)
+    else
       let p, cps_needed = rewrite_toplevel ~cps_needed p in
-      p, cps_needed, Var.Set.empty
-    )
+      p, Var.Set.empty, cps_needed
   in
   let p = split_blocks ~cps_needed ~lifter_functions p in
   let p, cps_calls, single_version_closures =