diff options
Diffstat (limited to 'kernel/modops.ml')
-rw-r--r-- | kernel/modops.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/kernel/modops.ml b/kernel/modops.ml index 093ee7024..4c18ed275 100644 --- a/kernel/modops.ml +++ b/kernel/modops.ml @@ -308,6 +308,11 @@ let rec add_structure mp sign resolver linkinfo env = Environ.add_constant_key c cb linkinfo env |SFBmind mib -> let mind = mind_of_delta_kn resolver (KerName.make2 mp l) in + let mib = + if mib.mind_private != None then + { mib with mind_private = Some true } + else mib + in Environ.add_mind_key mind (mib,linkinfo) env |SFBmodule mb -> add_module mb linkinfo env (* adds components as well *) |SFBmodtype mtb -> Environ.add_modtype mtb env |