diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-04-17 00:11:17 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-04-17 00:11:17 +0000 |
| commit | d82c39a7ab318a46a6d4c5941210536e845496d2 (patch) | |
| tree | 043d8a6ab2ae261b94fa83137dedec78d876b3ce /contrib | |
| parent | 4478577ca03d71742f954783d57b015f8d87f031 (diff) | |
temporaire
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3935 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/extraction/common.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/contrib/extraction/common.ml b/contrib/extraction/common.ml index fe0c06631..c71edf510 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 |