diff --git a/src/dune/lib_archives.ml b/src/dune/lib_archives.ml
index 18ae2f8fcf6d..693bf888c833 100644
--- a/src/dune/lib_archives.ml
+++ b/src/dune/lib_archives.ml
@@ -10,7 +10,7 @@ let lib_files t = t.lib_files
 let dll_files t = t.dll_files
 
 let has_native_archive lib config contents =
-  Lib_config.emit_empty_archives config
+  Lib_config.linker_can_create_empty_archives config
   ||
   let name = Dune_file.Library.best_name lib in
   let modules = Dir_contents.modules_of_library contents ~name in
diff --git a/src/dune/lib_config.ml b/src/dune/lib_config.ml
index a13cc20b78dd..f6ed2cc14681 100644
--- a/src/dune/lib_config.ml
+++ b/src/dune/lib_config.ml
@@ -48,7 +48,7 @@ let get_for_enabled_if t ~var =
     Code_error.raise "Lib_config.get_for_enabled_if: var not allowed"
       [ ("var", Dyn.Encoder.string var) ]
 
-let emit_empty_archives t =
+let linker_can_create_empty_archives t =
   match t.ccomp_type with
   | Msvc -> false
   | Other _ -> true
diff --git a/src/dune/lib_config.mli b/src/dune/lib_config.mli
index b0597fbe1211..8d3b94e0a648 100644
--- a/src/dune/lib_config.mli
+++ b/src/dune/lib_config.mli
@@ -28,4 +28,4 @@ val allowed_in_enabled_if : string list
 
 val get_for_enabled_if : t -> var:string -> string
 
-val emit_empty_archives : t -> bool
+val linker_can_create_empty_archives : t -> bool