From 77091f657e7393fc9d83a414542d2e2e2dd1e735 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 10 Mar 2008 23:17:57 +0000
Subject: Pas très propre de reposer sur la capture des anomalies (et cela
 complique le débogage...). Réécriture de 2 morceaux de code qui utilisaient
 les anomalies à des fins détournées de leur intention.

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

(limited to 'tactics')

diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index 5f919a4dbe..c3e79c6f0d 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -1947,7 +1947,7 @@ let compute_elim_sig ?elimc elimt =
     elimc = elimc; elimt = elimt; concl = conclusion;
     predicates = preds; npredicates = List.length preds; 
     branches = branches; nbranches = List.length branches; 
-    farg_in_concl = (try isApp (last_arg ccl) with _ -> false);
+    farg_in_concl = isApp ccl && isApp (last_arg ccl);
     params = params; nparams = nparams; 
     (* all other fields are unsure at this point. Including these:*)
     args = args_indargs; nargs = List.length args_indargs; } in
-- 
cgit v1.2.3