From 23b33427a012b7df1926f9ecae17968ac5016e2d Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Fri, 9 Nov 2007 09:40:21 +0000
Subject: Rétablissement compatibilité constr_of_reference
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10308 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/libnames.ml  | 2 --
 library/libnames.mli | 2 --
 2 files changed, 4 deletions(-)

diff --git a/library/libnames.ml b/library/libnames.ml
index 4d25c42f9..dcdd5ac41 100644
--- a/library/libnames.ml
+++ b/library/libnames.ml
@@ -49,10 +49,8 @@ let constr_of_global = function
   | ConstructRef sp -> mkConstruct sp
   | IndRef sp -> mkInd sp
 
-(*
 let constr_of_reference = constr_of_global
 let reference_of_constr = global_of_constr
-*)
 
 module RefOrdered =
   struct
diff --git a/library/libnames.mli b/library/libnames.mli
index 6c6d435be..fe5033d73 100644
--- a/library/libnames.mli
+++ b/library/libnames.mli
@@ -34,11 +34,9 @@ val constr_of_global : global_reference -> constr
    raise [Not_found] if not a global reference *)
 val global_of_constr : constr -> global_reference
 
-(*
 (* Obsolete synonyms for constr_of_global and global_of_constr *)
 val constr_of_reference : global_reference -> constr
 val reference_of_constr : constr -> global_reference
-*)
 
 module Refset : Set.S with type elt = global_reference 
 module Refmap : Map.S with type key = global_reference
-- 
cgit v1.2.3