diff options
| author | herbelin | 2013-02-17 14:55:59 +0000 |
|---|---|---|
| committer | herbelin | 2013-02-17 14:55:59 +0000 |
| commit | 97fc36f552bfd9731ac47716faf2b02d4555eb07 (patch) | |
| tree | 4f721ab62db1960d4f7eaad443fd284c603999f8 /proofs/proofview.ml | |
| parent | 45f177b92fa98d5f64b16309cacf4e532ff53645 (diff) | |
Revised the Ltac trace mechanism so that trace breaking due to
interleaving of ltac and ml code is not visible (this particularly
applies to ltac notation ring, which calls ml-level ring_lookup and
Ring again at the ltac level, resulting in non-localisation of "ring"
errors).
Added also missing LtacLocated checks in Class_instance and Proofview.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16204 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/proofview.ml')
| -rw-r--r-- | proofs/proofview.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml index bcd51fe2b1..c18c48744e 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -335,6 +335,7 @@ let tclEXTEND tacs1 rtac tacs2 env = open Pretype_errors let rec catchable_exception = function | Loc.Exc_located(_,e) -> catchable_exception e + | Proof_type.LtacLocated(_,_,e) -> catchable_exception e | Errors.UserError _ | Type_errors.TypeError _ | PretypeError (_,_,TypingError _) | Indrec.RecursionSchemeError _ |