diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-01-21 16:45:23 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-01-21 16:45:23 +0100 |
commit | be0eca32fae93ed4793c2f839bb9e725b6a963d1 (patch) | |
tree | c2c5dce5ce24f5a2a8cade9e69410599c00e2b55 /library/library.ml | |
parent | 9c2662eecc398f38be3b6280a8f760cc439bc31c (diff) | |
parent | 5e23fb90b39dfa014ae5c4fb46eb713cca09dbff (diff) |
Merge branch 'v8.5'
Diffstat (limited to 'library/library.ml')
-rw-r--r-- | library/library.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/library/library.ml b/library/library.ml index db95213fe..c41e10608 100644 --- a/library/library.ml +++ b/library/library.ml @@ -1,6 +1,6 @@ (************************************************************************) (* v * The Coq Proof Assistant / The Coq Development Team *) -(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2015 *) +(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016 *) (* \VV/ **************************************************************) (* // * This file is distributed under the terms of the *) (* * GNU Lesser General Public License Version 2.1 *) @@ -546,6 +546,8 @@ let in_require : require_obj -> obj = (* Require libraries, import them if [export <> None], mark them for export if [export = Some true] *) +let (f_xml_require, xml_require) = Hook.make ~default:ignore () + let require_library_from_dirpath modrefl export = let needed, contents = List.fold_left rec_intern_library ([], DPMap.empty) modrefl in let needed = List.rev_map (fun dir -> DPMap.find dir contents) needed in @@ -559,6 +561,7 @@ let require_library_from_dirpath modrefl export = end else add_anonymous_leaf (in_require (needed,modrefl,export)); + if !Flags.xml_export then List.iter (Hook.get f_xml_require) modrefl; add_frozen_state () (* the function called by Vernacentries.vernac_import *) |