diff options
| author | letouzey | 2002-12-13 13:23:22 +0000 |
|---|---|---|
| committer | letouzey | 2002-12-13 13:23:22 +0000 |
| commit | 793347ab8325696d413ab3a7016228130734e697 (patch) | |
| tree | b2b295cc5efdbe1dea406c298b75d24a5bb21b33 | |
| parent | 5d6b0f10b4a4a314ee48bfa3b743a3dbec521e37 (diff) | |
possibilité de faire Print M avec M module ou modtype au lieu de Print Module et Print Module Type
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3430 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/prettyp.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml index 4621f1bb27..1aa337373f 100644 --- a/parsing/prettyp.ml +++ b/parsing/prettyp.ml @@ -465,6 +465,10 @@ let print_name r = let kn = Nametab.locate_syntactic_definition qid in print_syntactic_def " = " kn with Not_found -> + try print_module true (Nametab.locate_module qid) + with Not_found -> + try print_modtype (Nametab.locate_modtype qid) + with Not_found -> user_err_loc (loc,"print_name",pr_qualid qid ++ spc () ++ str "not a defined object") |