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/declaremods.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'library/declaremods.ml') diff --git a/library/declaremods.ml b/library/declaremods.ml index bf6fe9f0d..30cac7771 100644 --- a/library/declaremods.ml +++ b/library/declaremods.ml @@ -873,9 +873,9 @@ let start_library dir = Lib.start_compilation dir mp; Lib.add_frozen_state () -let end_library dir = +let end_library ?except dir = let oname = Lib.end_compilation_checks dir in - let mp,cenv,ast = Global.export dir in + let mp,cenv,ast = Global.export ?except dir in let prefix, lib_stack = Lib.end_compilation oname in assert (ModPath.equal mp (MPfile dir)); let substitute, keep, _ = Lib.classify_segment lib_stack in -- cgit v1.2.3