From bb76b246d1396f788d18888abe8284befb7f44b9 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Tue, 3 Apr 2001 08:04:19 +0000
Subject: utilisation de Options.if_verbose

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1519 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/declare.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'library')

diff --git a/library/declare.ml b/library/declare.ml
index 9cd1041218..59828c3cc5 100644
--- a/library/declare.ml
+++ b/library/declare.ml
@@ -480,7 +480,7 @@ let declare_one_elimination mispec =
     let _ = declare_constant (id_of_string na)
       (ConstantEntry { const_entry_body = c; const_entry_type = None }, 
        NeverDischarge,false) in
-    if Options.is_verbose() then pPNL [< 'sTR na; 'sTR " is defined" >]
+    Options.if_verbose pPNL [< 'sTR na; 'sTR " is defined" >]
   in
   let env = Global.env () in
   let sigma = Evd.empty in
-- 
cgit v1.2.3