diff options
author | regisgia <regisgia@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-08-27 09:17:19 +0000 |
---|---|---|
committer | regisgia <regisgia@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-08-27 09:17:19 +0000 |
commit | 129a58c5dd2403263b8285f345b3a5e41d480b78 (patch) | |
tree | 800f3c867106d97bcf48a18b6531e6c5844a629f /library/library.ml | |
parent | d4b6a353ed60816a45bb27e406fb9ea06832ce24 (diff) |
* lib/Flags: Replace dont_load_proofs by load_proofs since not loading
proofs is now the default behavior of coqtop.
* lib/Coqtop: Update accordingly.
* checker/Check library/Library:
Pass the right "load_proofs" flag to LightenLibrary.load.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13379 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/library.ml')
-rw-r--r-- | library/library.ml | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/library/library.ml b/library/library.ml index 23b9fdc81..44aa05b54 100644 --- a/library/library.ml +++ b/library/library.ml @@ -387,13 +387,17 @@ let try_locate_qualified_library (loc,qid) = (************************************************************************) (* Internalise libraries *) -let mk_library md get_table digest = { - library_name = md.md_name; - library_compiled = LightenLibrary.load false get_table md.md_compiled; - library_objects = md.md_objects; - library_deps = md.md_deps; - library_imports = md.md_imports; - library_digest = digest } +let mk_library md get_table digest = + let md_compiled = + LightenLibrary.load !Flags.load_proofs get_table md.md_compiled + in { + library_name = md.md_name; + library_compiled = md_compiled; + library_objects = md.md_objects; + library_deps = md.md_deps; + library_imports = md.md_imports; + library_digest = digest + } let intern_from_file f = let ch = System.with_magic_number_check raw_intern_library f in |