diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-07 14:26:25 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-07 14:26:25 +0000 |
| commit | 78800e3425ace369b4a81f69ff1f4e00f04785a0 (patch) | |
| tree | eb41a58db1043327c79e0668d7e5e67c0e9a7bd2 /plugins/extraction/table.ml | |
| parent | 2be0079f2ed4b67eae474341a10b9f60dcf83c4f (diff) | |
Extraction Library Foo creates Foo.ml, not foo.ml (correct version)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13261 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/extraction/table.ml')
| -rw-r--r-- | plugins/extraction/table.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/plugins/extraction/table.ml b/plugins/extraction/table.ml index 301b6ed50..bd2aa6c91 100644 --- a/plugins/extraction/table.ml +++ b/plugins/extraction/table.ml @@ -603,8 +603,11 @@ let string_of_modfile mp = (* same as [string_of_modfile], but preserves the capital/uncapital 1st char *) let file_of_modfile mp = - let s0 = raw_string_of_modfile mp in - let s = string_of_modfile mp in + let s0 = match mp with + | MPfile f -> string_of_id (List.hd (repr_dirpath f)) + | _ -> assert false + in + let s = String.copy (string_of_modfile mp) in if s.[0] <> s0.[0] then s.[0] <- s0.[0]; s |