diff options
| author | Pierre-Marie Pédrot | 2015-04-01 11:14:21 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-04-01 11:24:08 +0200 |
| commit | f15506263b0f85039b0b3c25c93406b9f9a5f241 (patch) | |
| tree | aa511bf15714ff44c6045637c9204208f6f86ffd /library | |
| parent | bfa91a895692f4f52e132c3814a472c5e2a24d7b (diff) | |
Removing a probably incorrect on-the-fly require in a tactic.
Also removed the require function it was using, as it is absent from the
remaining of the code.
Diffstat (limited to 'library')
| -rw-r--r-- | library/library.ml | 4 | ||||
| -rw-r--r-- | library/library.mli | 1 |
2 files changed, 0 insertions, 5 deletions
diff --git a/library/library.ml b/library/library.ml index 2b607e1a38..2ebf4e5c31 100644 --- a/library/library.ml +++ b/library/library.ml @@ -592,10 +592,6 @@ let require_library_from_dirpath modrefl export = add_anonymous_leaf (in_require (needed,modrefl,export)); add_frozen_state () -let require_library qidl export = - let modrefl = List.map try_locate_qualified_library qidl in - require_library_from_dirpath modrefl export - let require_library_from_file idopt file export = let modref,needed = rec_intern_library_from_file idopt file in let needed = List.rev_map snd needed in diff --git a/library/library.mli b/library/library.mli index 75b256258f..150896783e 100644 --- a/library/library.mli +++ b/library/library.mli @@ -21,7 +21,6 @@ open Libnames (** {6 ... } *) (** Require = load in the environment + open (if the optional boolean is not [None]); mark also for export if the boolean is [Some true] *) -val require_library : qualid located list -> bool option -> unit val require_library_from_dirpath : (DirPath.t * string) list -> bool option -> unit val require_library_from_file : Id.t option -> CUnix.physical_path -> bool option -> unit |