diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-01 20:16:18 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-01 20:17:49 +0200 |
commit | d1c71b1f3b11e2eb29a5898610d6128b7d535337 (patch) | |
tree | a0e662edaa5c8c0d17feef652876b2a2166288f2 /tactics/auto.ml | |
parent | 785f82ee1ecd9a4500ce3e8f3f42946b8205c065 (diff) |
Made Tacsubst independent of Auto at linking time so that Tacenv does
not draw Auto.
Diffstat (limited to 'tactics/auto.ml')
-rw-r--r-- | tactics/auto.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index a3ce586cf..e06c2b7e0 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -769,8 +769,6 @@ let cache_autohint (_,(local,name,hints)) = | AddCut path -> add_cut name path | AddMode (l, m) -> add_mode name l m -let (forward_subst_tactic, extern_subst_tactic) = Hook.make () - let subst_autohint (subst,(local,name,hintlist as obj)) = let subst_key gr = let (lab'', elab') = subst_global subst gr in @@ -803,7 +801,7 @@ let subst_autohint (subst,(local,name,hintlist as obj)) = let ref' = subst_evaluable_reference subst ref in if ref==ref' then data.code else Unfold_nth ref' | Extern tac -> - let tac' = Hook.get forward_subst_tactic subst tac in + let tac' = Tacsubst.subst_tactic subst tac in if tac==tac' then data.code else Extern tac' in let name' = subst_path_atom subst data.name in |