diff options
| author | filliatr | 2001-04-03 08:04:19 +0000 |
|---|---|---|
| committer | filliatr | 2001-04-03 08:04:19 +0000 |
| commit | bb76b246d1396f788d18888abe8284befb7f44b9 (patch) | |
| tree | b7dd5667977ceae4f3944945a55cac6412681abb /proofs | |
| parent | 78811c7ecba58fc35a3441ac1d510c67e28b159e (diff) | |
utilisation de Options.if_verbose
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1519 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/tacinterp.ml b/proofs/tacinterp.ml index c422b00699..b5f4d88f02 100644 --- a/proofs/tacinterp.ml +++ b/proofs/tacinterp.ml @@ -1189,5 +1189,5 @@ let add_tacdef na vbody = "There is already a Meta Definition or a Tactic Definition named "; 'sTR na>]; let _ = Lib.add_leaf (id_of_string na) OBJ (inMD (na,vbody)) in - if Options.is_verbose() then mSGNL [< 'sTR (na ^ " is defined") >] + Options.if_verbose mSGNL [< 'sTR (na ^ " is defined") >] end |