diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-02-16 13:41:07 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-04-07 19:37:37 +0200 |
commit | b209cea412a9541fd1c434dde36ea6eb1e256a33 (patch) | |
tree | 1d9e19e84b3d2b6f6df127fd7a99ce4dace90069 /stm | |
parent | 99c92fedebf629549eb16feb266f55c83ad99bd9 (diff) |
[stm] remove process_error_hook
`process_error_hook` seems unnecesary, we just call the proper error
interpretation.
Diffstat (limited to 'stm')
-rw-r--r-- | stm/stm.ml | 5 | ||||
-rw-r--r-- | stm/stm.mli | 3 |
2 files changed, 1 insertions, 7 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 |