diff options
author | 2007-02-24 15:22:07 +0000 | |
---|---|---|
committer | 2007-02-24 15:22:07 +0000 | |
commit | f7a82d5f7edcce7ef70b99a10b92d8dcd5cfea70 (patch) | |
tree | 7248e936a9094bff92ed96e666c8feb1941b5802 /toplevel | |
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')
-rw-r--r-- | toplevel/command.ml | 5 | ||||
-rw-r--r-- | toplevel/himsg.ml | 2 | ||||
-rw-r--r-- | toplevel/vernac.ml | 1 |
3 files changed, 4 insertions, 4 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 diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 3560bea4f..305685cc7 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -29,8 +29,6 @@ open Printer open Rawterm open Evd -let quote s = h 0 (str "\"" ++ s ++ str "\"") - let pr_lconstr c = quote (pr_lconstr c) let pr_lconstr_env e c = quote (pr_lconstr_env e c) let pr_lconstr_env_at_top e c = quote (pr_lconstr_env_at_top e c) diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index 4090748b3..eec73e390 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -174,6 +174,7 @@ and vernac interpfun input = vernac_com interpfun (parse_phrase input) and read_vernac_file verbosely s = + Options.make_warn verbosely; let interpfun = if verbosely then Vernacentries.interp |