From 78800e3425ace369b4a81f69ff1f4e00f04785a0 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Wed, 7 Jul 2010 14:26:25 +0000
Subject: 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
---
 plugins/extraction/table.ml | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'plugins')

diff --git a/plugins/extraction/table.ml b/plugins/extraction/table.ml
index 301b6ed501..bd2aa6c91d 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
 
-- 
cgit v1.2.3