diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-29 00:06:34 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-29 00:06:34 +0000 |
commit | e4fcdf72deb7242a63e6b57bd2117dc0cf1ba5ab (patch) | |
tree | 9d83a204b22d6d91b9ae692deba774ac083a8f4e /contrib/extraction | |
parent | cf2109c4015f4c444e33b9b2f264cf415341ef39 (diff) |
affichage module et module type
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3619 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction')
-rw-r--r-- | contrib/extraction/ocaml.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/extraction/ocaml.ml b/contrib/extraction/ocaml.ml index cf13cc7b6..96de545a9 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) ++ |