fix

ocsigen · Feb 26, 2024 · cb0c8ac · cb0c8ac
1 parent 987bf4d
commit cb0c8ac
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 =