diff options
Diffstat (limited to 'kernel/modops.ml')
-rw-r--r-- | kernel/modops.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/modops.ml b/kernel/modops.ml index d91505f89..ccec3c170 100644 --- a/kernel/modops.ml +++ b/kernel/modops.ml @@ -318,7 +318,7 @@ let rec add_structure mp sign resolver linkinfo env = { mib with mind_private = Some true } else mib in - Environ.add_mind_key mind (mib,linkinfo) env + Environ.add_mind_key mind (mib,ref linkinfo) env |SFBmodule mb -> add_module mb linkinfo env (* adds components as well *) |SFBmodtype mtb -> Environ.add_modtype mtb env in @@ -337,10 +337,10 @@ let add_linked_module mb linkinfo env = add_module mb linkinfo env let add_structure mp sign resolver env = - add_structure mp sign resolver (no_link_info ()) env + add_structure mp sign resolver no_link_info env let add_module mb env = - add_module mb (no_link_info ()) env + add_module mb no_link_info env let add_module_type mp mtb env = add_module (module_body_of_type mp mtb) env |