diff options
| -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 (**********) |