From f09ca438e24bc4016b4e778dd8fd4de4641b7636 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Thu, 9 Dec 1999 09:59:27 +0000
Subject: Discharge (encore bugge)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@223 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/options.ml  | 3 ++-
 lib/options.mli | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/options.ml b/lib/options.ml
index c0f14ee30b..26869e7adc 100644
--- a/lib/options.ml
+++ b/lib/options.ml
@@ -11,10 +11,11 @@ let print_emacs = ref false
 
 let emacs_str s = if !print_emacs then s else "" 
 
-(* Silent *)
+(* Silent / Verbose *)
 let silent = ref false
 let make_silent flag = silent := flag; ()
 let is_silent () = !silent
+let verbose () = not !silent
 
 let silently f x =
   let oldsilent = !silent in
diff --git a/lib/options.mli b/lib/options.mli
index 9137883523..dc6b5b9824 100644
--- a/lib/options.mli
+++ b/lib/options.mli
@@ -12,6 +12,7 @@ val emacs_str : string -> string
 
 val make_silent : bool -> unit
 val is_silent : unit -> bool
+val verbose : unit -> bool
 val silently : ('a -> 'b) -> 'a -> 'b
 
 val set_print_hyps_limit : int -> unit
-- 
cgit v1.2.3