diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-10-23 22:13:43 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-10-23 22:13:43 +0000 |
| commit | ed2b03fa607381b216a653b0a3c407af6fd81e12 (patch) | |
| tree | 32b5bedec982db8b2191afac5749fbce85100c09 /tactics | |
| parent | ff7e6f61796c9afbeb89cc9ab5c6eb459408dbf4 (diff) | |
Forgot one file which had other local modifications...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11498 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index e2456adc1..aa5aaed3b 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -2183,7 +2183,7 @@ and interp_atomic ist gl = function | TacExactNoCheck c -> h_exact_no_check (pf_interp_constr ist gl c) | TacVmCastNoCheck c -> h_vm_cast_no_check (pf_interp_constr ist gl c) | TacApply (a,ev,cb) -> - h_apply a ev (List.map (interp_constr_with_bindings ist gl) cb) + h_apply a ev (List.map (interp_open_constr_with_bindings ist gl) cb) | TacElim (ev,cb,cbo) -> h_elim ev (interp_constr_with_bindings ist gl cb) (Option.map (interp_constr_with_bindings ist gl) cbo) |