diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-07 08:34:33 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-07 08:34:33 +0000 |
commit | d17996227b8c839fc363887ae3aed491e175beaa (patch) | |
tree | 94ddcbb421b2a5fc78cfe2dce03021110fca6e0c /plugins/extraction/table.ml | |
parent | 079edbff1af6f4be22d7a917522bd52651522640 (diff) |
Extraction: some more work on the (re)naming framework
- MPbound can be part of visible_mps (when printing the type of
a module parameter, or when printing body of a With), hence
the locality test base_mp mp = base_mp (top_visible_mp ())
isn't accurate.
- new organisation, pp_ocaml_gen is splitted in many sub-functions,
attempt to be clearer
- the shortcut (if List.length ls = 1 then ...) isn't safe,
we might detect name conflict even in this case.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13248 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/extraction/table.ml')
-rw-r--r-- | plugins/extraction/table.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/extraction/table.ml b/plugins/extraction/table.ml index 6691e2622..439bb2a56 100644 --- a/plugins/extraction/table.ml +++ b/plugins/extraction/table.ml @@ -82,8 +82,8 @@ let rec get_nth_label_mp n = function let common_prefix_from_list mp0 mpl = let prefixes = prefixes_mp mp0 in let rec f = function - | [] -> assert false - | mp :: l -> if MPset.mem mp prefixes then mp else f l + | [] -> None + | mp :: l -> if MPset.mem mp prefixes then Some mp else f l in f mpl let rec parse_labels ll = function |