diff options
| author | Emilio Jesus Gallego Arias | 2017-01-23 22:48:38 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2017-02-15 20:45:29 +0100 |
| commit | 4db82417bdda1f9b0c7ea6ba9f6d71c03cc07eba (patch) | |
| tree | 8973c496d28788486c50609492edb851d69ef036 | |
| parent | 3d2680a97a1ab9d85c4672217ec7957ce390bca1 (diff) | |
[stm] Remove unused legacy stm interface.
| -rw-r--r-- | stm/stm.ml | 3 | ||||
| -rw-r--r-- | stm/stm.mli | 1 |
2 files changed, 0 insertions, 4 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 1cd6209aa4..fd1cefa8d1 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -2954,9 +2954,6 @@ let proofname b = match VCS.get_branch b with let get_all_proof_names () = List.map unmangle (List.map_filter proofname (VCS.branches ())) -let get_current_proof_name () = - Option.map unmangle (proofname (VCS.current_branch ())) - (* Export hooks *) let state_computed_hook = Hooks.state_computed_hook let state_ready_hook = Hooks.state_ready_hook diff --git a/stm/stm.mli b/stm/stm.mli index 5d0d05d411..0f0a3c4e13 100644 --- a/stm/stm.mli +++ b/stm/stm.mli @@ -212,7 +212,6 @@ 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 -val get_current_proof_name : unit -> Id.t option (* Hooks to be set by other Coq components in order to break file cycles *) val process_error_hook : Future.fix_exn Hook.t |