diff options
| -rw-r--r-- | stm/stm.ml | 5 | ||||
| -rw-r--r-- | stm/stm.mli | 3 | ||||
| -rw-r--r-- | toplevel/vernac.ml | 3 |
3 files changed, 1 insertions, 10 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index d50516844..ba5e8a11f 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -29,8 +29,6 @@ let execution_error state_id loc msg = module Hooks = struct -let process_error, process_error_hook = Hook.make () - let state_computed, state_computed_hook = Hook.make ~default:(fun state_id ~in_cache -> feedback ~id:(State state_id) Processed) () @@ -63,7 +61,7 @@ let call_process_error_once = match Exninfo.get info processed with | Some _ -> ei | None -> - let e, info = call process_error ei in + let e, info = ExplainErr.process_vernac_interp_error ei in let info = Exninfo.add info processed () in e, info @@ -2936,7 +2934,6 @@ let state_computed_hook = Hooks.state_computed_hook let state_ready_hook = Hooks.state_ready_hook let parse_error_hook = Hooks.parse_error_hook let forward_feedback_hook = Hooks.forward_feedback_hook -let process_error_hook = Hooks.process_error_hook let unreachable_state_hook = Hooks.unreachable_state_hook let () = Hook.set Obligations.stm_get_fix_exn (fun () -> !State.fix_exn_ref) (* vim:set foldmethod=marker: *) diff --git a/stm/stm.mli b/stm/stm.mli index 9ae78e02c..a89062c29 100644 --- a/stm/stm.mli +++ b/stm/stm.mli @@ -209,6 +209,3 @@ val interp : bool -> vernac_expr located -> unit (* Queries for backward compatibility *) val current_proof_depth : unit -> int val get_all_proof_names : unit -> Id.t list - -(* Hooks to be set by other Coq components in order to break file cycles *) -val process_error_hook : Future.fix_exn Hook.t diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index 9917a49b4..d5ceeaccd 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -347,6 +347,3 @@ let compile v f = ignore(CoqworkmgrApi.get 1); compile v f; CoqworkmgrApi.giveback 1 - -let () = Hook.set Stm.process_error_hook - ExplainErr.process_vernac_interp_error |