From ad228a6815329a1331d26caca7f6eaae0ddbd52b Mon Sep 17 00:00:00 2001
From: filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Fri, 6 Apr 2001 15:35:25 +0000
Subject: correction d'un bug de Quote

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

(limited to 'contrib/ring')

diff --git a/contrib/ring/quote.ml b/contrib/ring/quote.ml
index c82ccecb0..998418331 100644
--- a/contrib/ring/quote.ml
+++ b/contrib/ring/quote.ml
@@ -393,7 +393,7 @@ let quote_terms ivs lc gl=
               let s1 = matches rhs c in
               let s2 = List.map (fun (i,c_i) -> (i,aux c_i)) s1 in
               Term.subst_meta s2 lhs
-            with UserError("somatch", _) -> auxl tail
+            with PatternMatchingFailure -> auxl tail
             end 
         |  [] -> 
              begin match ivs.variable_lhs with 
-- 
cgit v1.2.3