diff options
| author | herbelin | 2003-01-19 22:39:49 +0000 |
|---|---|---|
| committer | herbelin | 2003-01-19 22:39:49 +0000 |
| commit | 6a778f81c7faa5676ee51cc7b0814b4a905d3889 (patch) | |
| tree | 589b9e19785837ac0857458d292275a57a6338e9 | |
| parent | db4e1d74309296a32b1ac3b331f9f00bca021166 (diff) | |
Utilisation d'une exception 'catchable'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3535 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 5319b4fc08..aa1f37a839 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -876,7 +876,7 @@ let eval_variable ist gl (loc,id) = (* Then look if bound in the proof context at calling time *) if is_variable (pf_env gl) id then id else - Pretype_errors.error_var_not_found_loc loc id + user_err_loc (loc,"eval_variable",pr_id id ++ str " not found") let hyp_interp = eval_variable |