From f13b87b5b1a2f5d35b1be51d25d0891a2db08b95 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Wed, 11 Jul 2012 13:20:21 +0000
Subject: Fix typeclass error handling which was sometimes raising a Failure
 ("hd").

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15593 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/rewrite.ml4 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'tactics')

diff --git a/tactics/rewrite.ml4 b/tactics/rewrite.ml4
index 6575bbfe1f..3cd02f5444 100644
--- a/tactics/rewrite.ml4
+++ b/tactics/rewrite.ml4
@@ -1222,9 +1222,9 @@ let cl_rewrite_clause_tac ?abs strat meta clause gl =
     with
     | Loc.Exc_located (_, TypeClassError (env, (UnsatisfiableConstraints _ as e)))
     | TypeClassError (env, (UnsatisfiableConstraints _ as e)) ->
-	Refiner.tclFAIL_lazy 0
-	  (lazy (str"Unable to satisfy the rewriting constraints."
-		 ++ fnl () ++ Himsg.explain_typeclass_error env e))
+	Refiner.tclFAIL 0
+	  (str"Unable to satisfy the rewriting constraints."
+	   ++ fnl () ++ Himsg.explain_typeclass_error env e)
   in tac gl
 
 open Goal
-- 
cgit v1.2.3