diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-03 08:04:19 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-03 08:04:19 +0000 |
| commit | bb76b246d1396f788d18888abe8284befb7f44b9 (patch) | |
| tree | b7dd5667977ceae4f3944945a55cac6412681abb /toplevel/discharge.ml | |
| 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 'toplevel/discharge.ml')
| -rw-r--r-- | toplevel/discharge.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/discharge.ml b/toplevel/discharge.ml index fdaf56706..a4ab22eed 100644 --- a/toplevel/discharge.ml +++ b/toplevel/discharge.ml @@ -141,10 +141,10 @@ let process_inductive osecsp nsecsp oldenv (ids_to_discard,modlist) mib = (* Discharge messages. *) let constant_message id = - if Options.is_verbose() then pPNL [< pr_id id; 'sTR " is discharged." >] + Options.if_verbose pPNL [< pr_id id; 'sTR " is discharged." >] let inductive_message inds = - if Options.is_verbose() then + Options.if_verbose pPNL (hOV 0 (match inds with |