diff options
| author | herbelin | 2002-07-11 12:46:28 +0000 |
|---|---|---|
| committer | herbelin | 2002-07-11 12:46:28 +0000 |
| commit | bd2a5769f7702e48d876c2096cd7495ee266ee5d (patch) | |
| tree | c80628a7ef852522dcd8beb24081ec2edf272b90 | |
| parent | 1d152b81fe952a0ed20468e2e5d3d7063aa54d07 (diff) | |
Que la localisation des erreurs pour les tactiques atomiques marche
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2853 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/tacinterp.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 0a219ddc9e..1bebcec498 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1101,8 +1101,8 @@ let rec val_interp ist ast = value_interp ist and eval_tactic ist = function - | TacAtom (loc,t) -> - (try interp_atomic ist t + | TacAtom (loc,t) -> fun gl -> + (try interp_atomic ist t gl with e -> Stdpp.raise_with_loc loc e) | TacFun (it,body) -> assert false | TacFunRec rc -> assert false |