diff options
| author | Maxime Dénès | 2019-07-08 14:40:12 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2019-09-16 09:56:58 +0200 |
| commit | 2957e86c93556b0baf86b662d34fce1a2096edc2 (patch) | |
| tree | 9848db85f30b39c0e046125ab2f8d537b0b3e770 /library | |
| parent | 181597904ae9211facaa406371b5d54d61f40cbf (diff) | |
`do_modtype` -> `load_modtype`
Diffstat (limited to 'library')
| -rw-r--r-- | library/declaremods.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/declaremods.ml b/library/declaremods.ml index eea129eae7..301e5a3431 100644 --- a/library/declaremods.ml +++ b/library/declaremods.ml @@ -233,7 +233,7 @@ let do_module' exists iter_objects i ((sp,kn),sobjs) = (** Nota: Interactive modules and module types cannot be recached! This used to be checked more properly here. *) -let do_modtype i sp mp sobjs = +let load_modtype i sp mp sobjs = if Nametab.exists_modtype sp then anomaly (pr_path sp ++ str " already exists."); Nametab.push_modtype (Nametab.Until i) sp mp; @@ -247,7 +247,7 @@ let rec load_object i (name, obj) = | ModuleObject sobjs -> do_module' false load_objects i (name, sobjs) | ModuleTypeObject sobjs -> let (sp,kn) = name in - do_modtype i sp (mp_of_kn kn) sobjs + load_modtype i sp (mp_of_kn kn) sobjs | IncludeObject aobjs -> load_include i (name, aobjs) | ImportObject _ -> () | KeepObject objs -> load_keep i (name, objs) @@ -326,7 +326,7 @@ let rec cache_object (name, obj) = | ModuleObject sobjs -> do_module' false load_objects 1 (name, sobjs) | ModuleTypeObject sobjs -> let (sp,kn) = name in - do_modtype 1 sp (mp_of_kn kn) sobjs + load_modtype 0 sp (mp_of_kn kn) sobjs | IncludeObject aobjs -> cache_include (name, aobjs) | ImportObject { mp } -> really_import_module mp | KeepObject objs -> cache_keep (name, objs) |