diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-19 16:14:37 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-19 16:14:37 +0000 |
| commit | f3375ecf605d51d1f06c0af5e1f10a3e1923bd02 (patch) | |
| tree | 40989acf2bc7e9535d4d1cbdfe3d2a616d43ac03 /tactics | |
| parent | b1b5741680e864c6c7d3d6a956e2f3779a52e683 (diff) | |
Little fixes: print unbound variable in error message (patch by Samuel
Bronson), some keywords in coqdoc, and test well-typedness of predicate
in subtac_cases after abstraction.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11153 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 8b0632c19..876f13c33 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1210,7 +1210,8 @@ let coerce_to_int = function let interp_int ist locid = try try_interp_ltac_var coerce_to_int ist None locid - with Not_found -> user_err_loc(fst locid,"interp_int",str "Unbound variable") + with Not_found -> user_err_loc(fst locid,"interp_int", + str "Unbound variable" ++ pr_id (snd locid)) let interp_int_or_var ist = function | ArgVar locid -> interp_int ist locid |