From 6f5e9f8048b3a14bc7246862b048673032bc4e06 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Sun, 28 Sep 2003 16:55:26 +0000
Subject: oups

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

diff --git a/contrib/ring/ring.ml b/contrib/ring/ring.ml
index 0886cc1619..7a95671b8f 100644
--- a/contrib/ring/ring.ml
+++ b/contrib/ring/ring.ml
@@ -297,7 +297,7 @@ let unbox = function
 (* Protects the convertibility test against undue exceptions when using it 
    with untyped terms *)
 
-let safe_pf_conv_x c1 c2 = try pf_conv_x c1 c2 with _ -> false
+let safe_pf_conv_x gl c1 c2 = try pf_conv_x gl c1 c2 with _ -> false
 
 
 (* Add a Ring or a Semi-Ring to the database after a type verification *)
-- 
cgit v1.2.3