diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-09-08 19:38:27 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-09-08 19:46:21 +0200 |
| commit | 51d38d0892eae4a253356e52614da6dee6513e9e (patch) | |
| tree | bbc7133c7aeef42c0c6d3d1548681f1f4951cde1 /library/library.ml | |
| parent | 221f5e5622c866d1dae8e5c5e73156fa3e99ccfc (diff) | |
Removing dead code relative to the XML plugin.
Diffstat (limited to 'library/library.ml')
| -rw-r--r-- | library/library.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/library/library.ml b/library/library.ml index 9552a6ca9..7bff05cda 100644 --- a/library/library.ml +++ b/library/library.ml @@ -600,8 +600,6 @@ 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 @@ -615,7 +613,6 @@ 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 () let require_library qidl export = @@ -632,7 +629,6 @@ let require_library_from_file idopt file export = end else add_anonymous_leaf (in_require (needed,[modref],export)); - if !Flags.xml_export then Hook.get f_xml_require modref; add_frozen_state () (* the function called by Vernacentries.vernac_import *) |