diff options
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 6a18f72d5c..7e910c3602 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -294,9 +294,9 @@ let add_mind dir l mie senv = check_label l senv.labset; (* TODO: when we will allow reorderings we will have to verify all labels *) - let mib = translate_mind senv.env mie in - let senv' = add_constraints mib.mind_constraints senv in let kn = make_mind senv.modinfo.modpath dir l in + let mib = translate_mind senv.env kn mie in + let senv' = add_constraints mib.mind_constraints senv in let env'' = Environ.add_mind kn mib senv'.env in kn, { old = senv'.old; env = env''; |