diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-10-10 17:12:30 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-10-13 18:13:20 +0200 |
commit | e3a0a4d58b74d2113485ceabe4235567fda962c8 (patch) | |
tree | 9c9ebffea1f29b0339460a2f7a2bc545536bd4d0 /library/declaremods.ml | |
parent | 6c2d8c3026c1baeb0ff731907747a9c216d60400 (diff) |
selective join/export of the safe_environment
This generalizes the BuildVi flag and lets one choose which
opaque proofs are done and which not.
Diffstat (limited to 'library/declaremods.ml')
-rw-r--r-- | library/declaremods.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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 |