From e3a0a4d58b74d2113485ceabe4235567fda962c8 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Fri, 10 Oct 2014 17:12:30 +0200 Subject: selective join/export of the safe_environment This generalizes the BuildVi flag and lets one choose which opaque proofs are done and which not. --- library/global.ml | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'library/global.ml') diff --git a/library/global.ml b/library/global.ml index 49f78e495..68fb1c46f 100644 --- a/library/global.ml +++ b/library/global.ml @@ -16,15 +16,14 @@ module GlobalSafeEnv : sig val safe_env : unit -> Safe_typing.safe_environment val set_safe_env : Safe_typing.safe_environment -> unit - val join_safe_environment : unit -> unit + val join_safe_environment : ?except:Future.UUIDSet.t -> unit -> unit end = struct let global_env = ref Safe_typing.empty_environment -let join_safe_environment () = - if !Flags.compilation_mode <> Flags.BuildVi then - global_env := Safe_typing.join_safe_environment !global_env +let join_safe_environment ?except () = + global_env := Safe_typing.join_safe_environment ?except !global_env let () = Summary.declare_summary "Global environment" @@ -47,7 +46,8 @@ let set_safe_env e = global_env := e end let safe_env = GlobalSafeEnv.safe_env -let join_safe_environment = GlobalSafeEnv.join_safe_environment +let join_safe_environment ?except () = + GlobalSafeEnv.join_safe_environment ?except () let env () = Safe_typing.env_of_safe_env (safe_env ()) @@ -140,7 +140,7 @@ let mind_of_delta_kn kn = (** Operations on libraries *) let start_library dir = globalize (Safe_typing.start_library dir) -let export s = Safe_typing.export !Flags.compilation_mode (safe_env ()) s +let export ?except s = Safe_typing.export ?except (safe_env ()) s let import c u d = globalize (Safe_typing.import c u d) -- cgit v1.2.3