From 4e90d6d144df100d98bff366c2c2c188b375ff12 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Fri, 2 Jul 2010 13:36:06 +0000
Subject: Extraction: better support of modules

 - For Haskell, modules abbreviations and applied functors are expanded.
   The only remaining sitation that isn't supported is extracting functors
   and applying them after extraction.

 - Add a module extraction for Scheme with the same capabilities as for
   Haskell (with no Extraction Library, though).

 - Nicer extracted module types (use of the mb.mod_type_alg if present)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13236 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/extraction/common.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins/extraction/common.ml')

diff --git a/plugins/extraction/common.ml b/plugins/extraction/common.ml
index afa674e9db..0941ed50fa 100644
--- a/plugins/extraction/common.ml
+++ b/plugins/extraction/common.ml
@@ -304,7 +304,7 @@ and mp_renaming =
 let ref_renaming_fun (k,r) =
   let mp = modpath_of_r r in
   let l = mp_renaming mp in
-  let l = if lang () = Haskell && not (modular ()) then [""] else l in
+  let l = if lang () <> Ocaml && not (modular ()) then [""] else l in
   let s =
     if l = [""] (* this happens only at toplevel of the monolithic case *)
     then
-- 
cgit v1.2.3