diff options
| author | filliatr | 1999-12-09 09:59:27 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-09 09:59:27 +0000 |
| commit | f09ca438e24bc4016b4e778dd8fd4de4641b7636 (patch) | |
| tree | 4b108c844f99fb9bba496fa50d56445f5a8fd6ff /lib/options.ml | |
| parent | c4dccc430e10b784e65b5bf3330c55d658d2883d (diff) | |
Discharge (encore bugge)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@223 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/options.ml')
| -rw-r--r-- | lib/options.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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 |