From e4fcdf72deb7242a63e6b57bd2117dc0cf1ba5ab Mon Sep 17 00:00:00 2001
From: letouzey
Date: Wed, 29 Jan 2003 00:06:34 +0000
Subject: affichage module et module type

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

diff --git a/contrib/extraction/ocaml.ml b/contrib/extraction/ocaml.ml
index cf13cc7b61..96de545a93 100644
--- a/contrib/extraction/ocaml.ml
+++ b/contrib/extraction/ocaml.ml
@@ -529,7 +529,7 @@ let rec pp_structure_elem mp = function
 	 str " = " ++ fnl () ++ pp_module_type m)
 
 and pp_module_expr = function 
-  | MEident mp -> P.pp_long_module mp 
+  | MEident mp -> P.pp_long_module (long_mp mp)
   | MEfunctor (mbid, mt, me) -> 
       str "functor (" ++ 
       P.pp_short_module (id_of_mbid mbid) ++
@@ -547,7 +547,7 @@ and pp_module_expr = function
 
 and pp_module_type = function 
   | MTident kn -> 
-      let mp,_,l = repr_kn kn in P.pp_long_module (MPdot (mp,l)) 
+      let mp,_,l = repr_kn kn in P.pp_long_module (MPdot (ong_mp mp,l)) 
   | MTfunsig (mbid, mt, mt') -> 
       str "functor (" ++ 
       P.pp_short_module (id_of_mbid mbid) ++
-- 
cgit v1.2.3