diff options
| author | herbelin | 2004-12-09 13:48:57 +0000 |
|---|---|---|
| committer | herbelin | 2004-12-09 13:48:57 +0000 |
| commit | aba21455f0d9e570106a8b4d9c1bd6241664f1d3 (patch) | |
| tree | dee8f5d864de4b6fa020319795e2bcf93a2a67be | |
| parent | f758ce6d5de7cbfbf065587dbaf69ce28798e517 (diff) | |
Amélioration message localisation constructions et modules
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6453 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/prettyp.ml | 2 | ||||
| -rw-r--r-- | toplevel/vernacentries.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml index e308230782..da915f17bb 100644 --- a/parsing/prettyp.ml +++ b/parsing/prettyp.ml @@ -216,7 +216,7 @@ let print_located_qualid ref = (fun (o,oqid) -> hov 2 (pr_located_qualid o ++ (if oqid <> qid then - spc() ++ str "(visible as " ++ pr_qualid oqid ++ str")" + spc() ++ str "(shorter name to refer to it is " ++ pr_qualid oqid ++ str")" else mt ()))) l diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 9df803dfd7..7a63799643 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -228,9 +228,9 @@ let print_located_module r = str "Module " ++ pr_dirpath dir with Not_found -> (if fst (repr_qualid qid) = empty_dirpath then - str "No module of basename " + str "No module is referred to by basename " else - str "No module of suffix ") ++ pr_qualid qid + str "No module is referred to by name ") ++ pr_qualid qid in msgnl msg (**********) |