From 9ef6ebf95fb55f1d078454fef129be809aa4a431 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Tue, 29 Nov 2005 23:53:46 +0000
Subject: correctif pour que type t = M.t contienne bien son M.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7627 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/extraction/ocaml.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/contrib/extraction/ocaml.ml b/contrib/extraction/ocaml.ml
index ee53bd49a7..575f199eb6 100644
--- a/contrib/extraction/ocaml.ml
+++ b/contrib/extraction/ocaml.ml
@@ -483,8 +483,9 @@ let pp_decl mpl =
     | Dtype (r, l, t) ->
 	if is_inline_custom r then failwith "empty phrase"
 	else 
+          let pp_r = pp_global r in 
 	  let l = rename_tvars keywords l in 
-	  let ids, def = try 
+          let ids, def = try 
 	    let ids,s = find_type_custom r in 
 	    pp_string_parameters ids, str "=" ++ spc () ++ str s 
 	  with not_found -> 
@@ -492,7 +493,7 @@ let pp_decl mpl =
 	    if t = Taxiom then str "(* AXIOM TO BE REALIZED *)"
 	    else str "=" ++ spc () ++ pp_type false l t
 	  in 
-	  hov 2 (str "type" ++ spc () ++ ids ++ pp_global r ++ 
+	  hov 2 (str "type" ++ spc () ++ ids ++ pp_r ++ 
 		 spc () ++ def)
     | Dterm (r, a, t) -> 
 	if is_inline_custom r then failwith "empty phrase"
-- 
cgit v1.2.3