From cb0c8ac132ce252e10e6410406f2abca58fc86f7 Mon Sep 17 00:00:00 2001
From: Hugo Heuzard <hugo.heuzard@gmail.com>
Date: Mon, 26 Feb 2024 23:57:14 +0100
Subject: [PATCH] fix

---
 compiler/lib/generate.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/lib/generate.ml b/compiler/lib/generate.ml
index 8661959ab5..d9363dc9ef 100644
--- a/compiler/lib/generate.ml
+++ b/compiler/lib/generate.ml
@@ -1397,7 +1397,7 @@ and translate_instrs_rev (ctx : Ctx.t) expr_queue instrs acc_rev muts_map : _ *
                  | Some x' -> x' ))
       in
       let muts_map =
-        List.fold_left muts_map_l ~init:Var.Map.empty ~f:(fun acc (x, x') ->
+        List.fold_left muts_map_l ~init:old_muts_map ~f:(fun acc (x, x') ->
             Var.Map.add x x' acc)
       in
       let fvs =