diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-01-13 16:44:00 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-01-13 16:44:00 +0000 |
| commit | 2b039e21cc3a166dd42c99967a5adfae35219a1e (patch) | |
| tree | 927d3ba1b70f19d986f72d6b3f127bd8fda1f2b4 /parsing/prettyp.ml | |
| parent | 0224b036502016e9bd4e8b683af458248fdac4a9 (diff) | |
Amélioration message Locate
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6583 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/prettyp.ml')
| -rw-r--r-- | parsing/prettyp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml index 743036bcf..7df78fe61 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 "(shorter name to refer to it is " ++ pr_qualid oqid ++ str")" + spc() ++ str "(shorter name to refer to it in current context is " ++ pr_qualid oqid ++ str")" else mt ()))) l |