diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-02-24 15:22:07 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-02-24 15:22:07 +0000 |
| commit | f7a82d5f7edcce7ef70b99a10b92d8dcd5cfea70 (patch) | |
| tree | 7248e936a9094bff92ed96e666c8feb1941b5802 /toplevel/command.ml | |
| parent | 8eeec81e418603eaffc295bf20744da91b2e0f83 (diff) | |
Une passe sur les warnings (ajout Options.warn déclenchée par compile-verbose +
ajout Pp.strbrk pour faciliter les césures faciles + messages divers).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9679 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index d9c91808f..739a7b47f 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -144,8 +144,9 @@ let declare_definition ident (local,boxed,dok) bl red_option c typopt hook = let _ = declare_variable ident (Lib.cwd(),c,IsDefinition Definition) in definition_message ident; if Pfedit.refining () then - msgerrnl (str"Warning: Local definition " ++ pr_id ident ++ - str" is not visible from current goals"); + Options.if_verbose msg_warning + (str"Local definition " ++ pr_id ident ++ + str" is not visible from current goals"); VarRef ident | (Global|Local) -> declare_global_definition ident ce' local in |