diff options
author | 2017-06-11 06:40:29 +0200 | |
---|---|---|
committer | 2017-06-20 11:21:29 +0200 | |
commit | 21f8312738f324d1c55e4ed7c451b642c9da70e6 (patch) | |
tree | 360baca5c139ed4fe1a8d3d2b1af75c91ef2e6d7 | |
parent | d30ed5fe0694466f70eed51bc689cd0fa8c00da5 (diff) |
[vernac] Remove unused hooks.
These hooks are not used (leftovers?) and IMHO they should not be.
-rw-r--r-- | vernac/command.ml | 5 | ||||
-rw-r--r-- | vernac/command.mli | 5 |
2 files changed, 0 insertions, 10 deletions
diff --git a/vernac/command.ml b/vernac/command.ml index 406477356..68fa8ab88 100644 --- a/vernac/command.ml +++ b/vernac/command.ml @@ -167,10 +167,6 @@ let declare_global_definition ident ce local k pl imps = let () = definition_message ident in gr -let declare_definition_hook = ref ignore -let set_declare_definition_hook = (:=) declare_definition_hook -let get_declare_definition_hook () = !declare_definition_hook - let warn_definition_not_visible = CWarnings.create ~name:"definition-not-visible" ~category:"implicits" (fun ident -> @@ -179,7 +175,6 @@ let warn_definition_not_visible = let declare_definition ident (local, p, k) ce pl imps hook = let fix_exn = Future.fix_exn_of ce.const_entry_body in - let () = !declare_definition_hook ce in let r = match local with | Discharge when Lib.sections_are_opened () -> let c = SectionLocalDef ce in diff --git a/vernac/command.mli b/vernac/command.mli index a636bc03c..f7d90ce60 100644 --- a/vernac/command.mli +++ b/vernac/command.mli @@ -23,11 +23,6 @@ val do_universe : polymorphic -> Id.t Loc.located list -> unit val do_constraint : polymorphic -> (Misctypes.glob_level * Univ.constraint_type * Misctypes.glob_level) list -> unit -(** {6 Hooks for Pcoq} *) - -val set_declare_definition_hook : (Safe_typing.private_constants definition_entry -> unit) -> unit -val get_declare_definition_hook : unit -> (Safe_typing.private_constants definition_entry -> unit) - (** {6 Definitions/Let} *) val interp_definition : |