diff options
| author | letouzey | 2003-01-29 00:07:37 +0000 |
|---|---|---|
| committer | letouzey | 2003-01-29 00:07:37 +0000 |
| commit | dd0b9702499ebe18c5850193e20f0748a08a817f (patch) | |
| tree | 71a78e4e91a79d05fb6c51ab6f0250e4e537f011 | |
| parent | e4fcdf72deb7242a63e6b57bd2117dc0cf1ba5ab (diff) | |
affichage module et module type
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3620 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/extraction/ocaml.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/ocaml.ml b/contrib/extraction/ocaml.ml index 96de545a93..f11ac89d51 100644 --- a/contrib/extraction/ocaml.ml +++ b/contrib/extraction/ocaml.ml @@ -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 (ong_mp mp,l)) + let mp,_,l = repr_kn kn in P.pp_long_module (MPdot (long_mp mp,l)) | MTfunsig (mbid, mt, mt') -> str "functor (" ++ P.pp_short_module (id_of_mbid mbid) ++ |