diff options
| author | Pierre-Marie Pédrot | 2018-10-08 10:20:24 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-10-08 10:20:24 +0200 |
| commit | 120a8020f6b98ea00988cc37641944811832d139 (patch) | |
| tree | 603b8045e3a1d80acb20427f70e675b1628f5e59 /src | |
| parent | 0d46f9a60891829710210fe114171c2e80e43b64 (diff) | |
| parent | bebd946584b33a5e263393bd88e8571cd5fa5af2 (diff) | |
Merge remote-tracking branch 'remotes/origin/pr/74'
Diffstat (limited to 'src')
| -rw-r--r-- | src/tac2tactics.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/tac2tactics.ml b/src/tac2tactics.ml index 3c464469f0..25431af2ea 100644 --- a/src/tac2tactics.ml +++ b/src/tac2tactics.ml @@ -159,8 +159,7 @@ let specialize c pat = let change pat c cl = let open Tac2ffi in Proofview.Goal.enter begin fun gl -> - let env = Proofview.Goal.env gl in - let c subst sigma = + let c subst env sigma = let subst = Array.map_of_list snd (Id.Map.bindings subst) in delayed_of_tactic (Tac2ffi.app_fun1 c (array constr) constr subst) env sigma in |