From d73bf48c107e7f3e08f2fc5777bbbd42b4e1bc7c Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Mon, 28 Jan 2013 13:54:13 +0000
Subject: Added backtrace information to anomalies

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16161 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/tacinterp.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'tactics')

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
-- 
cgit v1.2.3