diff options
| author | Pierre-Marie Pédrot | 2015-12-02 14:25:31 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-12-02 14:26:05 +0100 |
| commit | b5990eb632c2a959b7a86ea9c7e4970505e976a1 (patch) | |
| tree | f9a1772961a9155d25aba46d9a97b803927e38e6 | |
| parent | 551a03d3e50d067b4b10669b6b302692e6ac3081 (diff) | |
Removing dead code in Obligations.
| -rw-r--r-- | tactics/tacinterp.mli | 1 | ||||
| -rw-r--r-- | toplevel/obligations.ml | 13 |
2 files changed, 1 insertions, 13 deletions
diff --git a/tactics/tacinterp.mli b/tactics/tacinterp.mli index 7605c91554..05fbd67cba 100644 --- a/tactics/tacinterp.mli +++ b/tactics/tacinterp.mli @@ -47,7 +47,6 @@ val extract_ltac_constr_values : interp_sign -> Environ.env -> (** To embed several objects in Coqast.t *) val tactic_in : (interp_sign -> glob_tactic_expr) -> Dyn.t -val tactic_out : Dyn.t -> (interp_sign -> glob_tactic_expr) val tacticIn : (interp_sign -> raw_tactic_expr) -> raw_tactic_expr val globTacticIn : (interp_sign -> glob_tactic_expr) -> raw_tactic_expr diff --git a/toplevel/obligations.ml b/toplevel/obligations.ml index 50ecef0b0c..66bf9b383d 100644 --- a/toplevel/obligations.ml +++ b/toplevel/obligations.ml @@ -52,9 +52,6 @@ type oblinfo = ev_tac: unit Proofview.tactic option; ev_deps: Int.Set.t } -(* spiwack: Store field for internalizing ev_tac in evar_infos' evar_extra. *) -let evar_tactic = Store.field () - (** Substitute evar references in t using De Bruijn indices, where n binders were passed through. *) @@ -229,17 +226,9 @@ let eterm_obligations env name evm fs ?status t ty = | Some s -> s, None | None -> Evar_kinds.Define true, None in - let tac = match Store.get ev.evar_extra evar_tactic with - | Some t -> - if Dyn.has_tag t "tactic" then - Some (Tacinterp.interp - (Tacinterp.globTacticIn (Tacinterp.tactic_out t))) - else None - | None -> None - in let info = { ev_name = (n, nstr); ev_hyps = hyps; ev_status = status; ev_chop = chop; - ev_src = loc, k; ev_typ = evtyp ; ev_deps = deps; ev_tac = tac } + ev_src = loc, k; ev_typ = evtyp ; ev_deps = deps; ev_tac = None } in (id, info) :: l) evn [] in |