Fix spurious free var warning over CONFIG macro

ocsigen · Dec 19, 2024 · dded0e8 · dded0e8
1 parent 796e973
commit dded0e8
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/compiler/lib/linker.ml b/compiler/lib/linker.ml
@@ -135,7 +135,11 @@ module Check = struct
     let freename = StringSet.diff freename Reserved.keyword in
     let freename = StringSet.diff freename Reserved.provided in
     let freename = StringSet.remove Global_constant.global_object freename in
-    let freename = if has_flags then StringSet.remove "FLAG" freename else freename in
+    let freename =
+      if has_flags
+      then StringSet.(diff freename (of_list [ "FLAG"; "CONFIG" ]))
+      else freename
+    in
     if StringSet.mem Global_constant.old_global_object freename
     then
       warn