diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-04-22 15:31:12 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-04-23 12:09:14 +0200 |
| commit | 74ddca99c649f2f8c203582a9b82bddf64fb6b52 (patch) | |
| tree | f23aa6340c2630619864666ef5eed257d3d765d9 /library | |
| parent | d23c7539887366202bc370d0f80c26a557486e1c (diff) | |
Removing dead code, thanks to new OCaml warnings and a bit of scripting.
Diffstat (limited to 'library')
| -rw-r--r-- | library/global.ml | 1 | ||||
| -rw-r--r-- | library/globnames.mli | 2 | ||||
| -rw-r--r-- | library/nametab.ml | 4 | ||||
| -rw-r--r-- | library/nametab.mli | 2 |
4 files changed, 2 insertions, 7 deletions
diff --git a/library/global.ml b/library/global.ml index 9f683b2ff..a8121d15f 100644 --- a/library/global.ml +++ b/library/global.ml @@ -7,7 +7,6 @@ (************************************************************************) open Names -open Term open Environ (** We introduce here the global environment of the system, diff --git a/library/globnames.mli b/library/globnames.mli index 0a7bf850c..5d717965e 100644 --- a/library/globnames.mli +++ b/library/globnames.mli @@ -49,12 +49,14 @@ val reference_of_constr : constr -> global_reference module RefOrdered : sig type t = global_reference val compare : t -> t -> int + val equal : t -> t -> bool val hash : t -> int end module RefOrdered_env : sig type t = global_reference val compare : t -> t -> int + val equal : t -> t -> bool val hash : t -> int end diff --git a/library/nametab.ml b/library/nametab.ml index 03856736d..1a30e80d1 100644 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -15,14 +15,10 @@ open Globnames exception GlobalizationError of qualid -exception GlobalizationConstantError of qualid let error_global_not_found_loc loc q = Loc.raise loc (GlobalizationError q) -let error_global_constant_not_found_loc loc q = - Loc.raise loc (GlobalizationConstantError q) - let error_global_not_found q = raise (GlobalizationError q) (* Kinds of global names *) diff --git a/library/nametab.mli b/library/nametab.mli index 43c174f1b..d9038c774 100644 --- a/library/nametab.mli +++ b/library/nametab.mli @@ -58,12 +58,10 @@ open Globnames exception GlobalizationError of qualid -exception GlobalizationConstantError of qualid (** Raises a globalization error *) val error_global_not_found_loc : Loc.t -> qualid -> 'a val error_global_not_found : qualid -> 'a -val error_global_constant_not_found_loc : Loc.t -> qualid -> 'a (** {6 Register visibility of things } *) |