fix(vlib): remove sketchy laziness

Signed-off-by: Rudi Grinberg <[email protected]>

src/dune_rules/vimpl.ml

@@ -7,7 +7,7 @@ type t =
   ; vlib_modules : Modules.t
   ; vlib_foreign_objects : Path.t list
   ; impl_cm_kind : Cm_kind.t
-  ; vlib_obj_map : Module.t Module_name.Unique.Map.t Lazy.t
+  ; vlib_obj_map : Module.t Module_name.Unique.Map.t
   }
 
 let vlib_modules t = t.vlib_modules
@@ -34,17 +34,16 @@ let make ~vlib ~impl ~vlib_modules ~vlib_foreign_objects =
         Native)
   in
   let vlib_obj_map =
-    lazy
-      (Modules.obj_map vlib_modules ~f:(function
-         | Normal m -> m
-         | _ -> assert false)
-      |> Module.Obj_map.fold ~init:Module_name.Unique.Map.empty ~f:(fun m acc ->
-             Module_name.Unique.Map.add_exn acc (Module.obj_name m) m))
+    Modules.obj_map vlib_modules ~f:(function
+      | Normal m -> m
+      | _ -> assert false)
+    |> Module.Obj_map.fold ~init:Module_name.Unique.Map.empty ~f:(fun m acc ->
+           Module_name.Unique.Map.add_exn acc (Module.obj_name m) m)
   in
   { impl; impl_cm_kind; vlib; vlib_modules; vlib_foreign_objects; vlib_obj_map }
 
 let vlib_stubs_o_files = function
   | None -> []
   | Some t -> t.vlib_foreign_objects
 
-let vlib_obj_map t = Lazy.force t.vlib_obj_map
+let vlib_obj_map t = t.vlib_obj_map