diff options
Diffstat (limited to 'kernel/safe_typing.ml')
-rw-r--r-- | kernel/safe_typing.ml | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index a1b820466..851803621 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -616,7 +616,6 @@ let end_modtype l senv = local_retroknowledge = senv.local_retroknowledge@oldsenv.local_retroknowledge} -let current_modpath senv = senv.modinfo.modpath let delta_of_senv senv = senv.modinfo.resolver,senv.modinfo.resolver_of_param (* Check that the engagement expected by a library matches the initial one *) @@ -679,16 +678,6 @@ let start_library dir senv = loads = []; local_retroknowledge = [] } -let pack_module senv = - {mod_mp=senv.modinfo.modpath; - mod_expr=None; - mod_type= SEBstruct (List.rev senv.revstruct); - mod_type_alg=None; - mod_constraints=empty_constraint; - mod_delta=senv.modinfo.resolver; - mod_retroknowledge=[]; - } - let export senv dir = let modinfo = senv.modinfo in begin |