From d82c39a7ab318a46a6d4c5941210536e845496d2 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Thu, 17 Apr 2003 00:11:17 +0000
Subject: temporaire

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3935 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/extraction/common.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/contrib/extraction/common.ml b/contrib/extraction/common.ml
index fe0c06631c..c71edf5102 100644
--- a/contrib/extraction/common.ml
+++ b/contrib/extraction/common.ml
@@ -243,10 +243,12 @@ module StdParams = struct
 	try (* has [mp] something in common with one of those in [mpl] ? *)
 	  let pref = common_prefix_from_list mp mpl in 
 	  let l = labels_after_prefix pref mp in 
-	  if clash pref l s mpl 
+(*i TODO:  traiter proprement.
+          if clash pref l s mpl 
 	  then error_unqualified_name (string_of_ren (print_labels l) s) 
 	    (string_of_modlist (mp2l (List.hd mpl)))
-	  else (string_of_ren (print_labels l) s)
+	  else i*) 
+	  string_of_ren (print_labels l) s
 	with Not_found -> (* [mp] is othogonal with every element of [mp]. *)
 	  let base, l = labels_of_mp mp in 
 	  let short = string_of_ren (print_labels l) s in
-- 
cgit v1.2.3