diff options
| author | ppedrot | 2013-01-28 13:54:13 +0000 |
|---|---|---|
| committer | ppedrot | 2013-01-28 13:54:13 +0000 |
| commit | d73bf48c107e7f3e08f2fc5777bbbd42b4e1bc7c (patch) | |
| tree | ef18d6e605c3f98392a226a2d3df68a1d0b0481c /tactics | |
| parent | 8d77cb907a3595c90f15e1aa6402868ad4e43242 (diff) | |
Added backtrace information to anomalies
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16161 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 ac349bd8dc..7a041214d9 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1744,9 +1744,10 @@ and interp_atomic ist gl tac = is dropped as the evar_map taken as input (from extend_gl_hyps) is incorrect. This means that evar instantiated by pf_interp_constr may be lost, there. *) + let to_catch = function Not_found -> true | e -> Errors.is_anomaly e in let (_,c_interp) = try pf_interp_constr ist (extend_gl_hyps gl sign) c - with Not_found | Anomaly _ (* Hack *) -> + with e when to_catch e (* Hack *) -> errorlabstrm "" (strbrk "Failed to get enough information from the left-hand side to type the right-hand side.") in tclTHEN |