diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-06 15:35:25 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-06 15:35:25 +0000 |
| commit | ad228a6815329a1331d26caca7f6eaae0ddbd52b (patch) | |
| tree | c9ca4503d11e3fa314f621881c6ae3840b701bb4 /contrib/ring | |
| parent | 1d641d1c2fcd97b6fd60369de8b4a7e6a26b1051 (diff) | |
correction d'un bug de Quote
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1553 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/ring')
| -rw-r--r-- | contrib/ring/quote.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |