Compiler: fix for global deadcode

ocsigen · Nov 11, 2023 · 1b3687a · 1b3687a
1 parent 319f654
commit 1b3687a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/compiler/lib/global_deadcode.ml b/compiler/lib/global_deadcode.ml
@@ -178,7 +178,7 @@ let expr_vars e =
       List.fold_left
         ~f:(fun acc v ->
           match v with
-          | Pv v -> Var.Set.add v vars
+          | Pv v -> Var.Set.add v acc
           | Pc _ -> acc)
         ~init:vars
         args