diff options
| author | Gaëtan Gilbert | 2019-05-13 12:49:39 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-05-13 12:49:39 +0200 |
| commit | cfecef471c706beb50d70b951b148c9629a4064a (patch) | |
| tree | d1ea20cc7b7af614311e2f4294a51a70e430971d /library/lib.ml | |
| parent | fe75c2ab9400a83b18fa73e95d4c24a79f88c97d (diff) | |
| parent | 1cdaa823aa2db2f68cf63561a85771bb98aec70f (diff) | |
Merge PR #9887: [api] Remove 8.10 deprecations.
Reviewed-by: SkySkimmer
Diffstat (limited to 'library/lib.ml')
| -rw-r--r-- | library/lib.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/lib.ml b/library/lib.ml index d4381a6923..a046360822 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -278,7 +278,7 @@ let start_mod is_type export id mp fs = let prefix = Nametab.{ obj_dir = dir; obj_mp = mp; obj_sec = Names.DirPath.empty } in let exists = if is_type then Nametab.exists_cci (make_path id) - else Nametab.exists_module dir + else Nametab.exists_dir dir in if exists then user_err ~hdr:"open_module" (Id.print id ++ str " already exists"); @@ -569,7 +569,7 @@ let open_section id = let opp = !lib_state.path_prefix in let obj_dir = add_dirpath_suffix opp.Nametab.obj_dir id in let prefix = Nametab.{ obj_dir; obj_mp = opp.obj_mp; obj_sec = add_dirpath_suffix opp.obj_sec id } in - if Nametab.exists_section obj_dir then + if Nametab.exists_dir obj_dir then user_err ~hdr:"open_section" (Id.print id ++ str " already exists."); let fs = Summary.freeze_summaries ~marshallable:false in add_entry (make_foname id) (OpenedSection (prefix, fs)); |