diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/safe_typing.ml | 11 | ||||
| -rw-r--r-- | kernel/safe_typing.mli | 3 |
2 files changed, 0 insertions, 14 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index a1b8204667..8518036213 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 diff --git a/kernel/safe_typing.mli b/kernel/safe_typing.mli index cd24bd8d0e..46dac02aa1 100644 --- a/kernel/safe_typing.mli +++ b/kernel/safe_typing.mli @@ -91,10 +91,7 @@ val add_include : module_struct_entry -> bool -> inline -> safe_environment -> delta_resolver * safe_environment -val pack_module : safe_environment -> module_body -val current_modpath : safe_environment -> module_path val delta_of_senv : safe_environment -> delta_resolver*delta_resolver - (** Loading and saving compilation units *) |