CR: Remove duplicate instruction

ocsigen · Dec 4, 2024 · fdb576a · fdb576a
1 parent 9962764
commit fdb576a
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/compiler/lib/lambda_lifting_simple.ml b/compiler/lib/lambda_lifting_simple.ml
@@ -287,9 +287,8 @@ and rewrite_body
             in
             let tuple = Var.fresh_n "tuple" in
             let rev_decl =
-              Let (tuple, Apply { f = f_tuple; args = List.map ~f:fst s; exact = true })
-              :: List.mapi current_contiguous ~f:(fun i (f, _, _, _) ->
-                     Let (f, Field (tuple, i, Non_float)))
+              List.mapi current_contiguous ~f:(fun i (f, _, _, _) ->
+                  Let (f, Field (tuple, i, Non_float)))
             in
             ( (program, functions, lifters)
             , rev_decl