diff options
author | 2017-04-21 02:01:02 +0200 | |
---|---|---|
committer | 2017-04-21 02:01:02 +0200 | |
commit | a821f74dc91e438c86037d1dc8903a49934e6ee5 (patch) | |
tree | e29fdcb22b310768b400387167db9f97916333d6 /tactics | |
parent | beb3acd2fd3831404f0be2da61d3f28e210e8349 (diff) |
[flags] Deprecate is_silent/is_verbose in favor of single flag.
Today, both modes are controlled by a single flag, however this is a
bit misleading as is_silent really means "quiet", that is to say `coqc
-q` whereas "verbose" is Coq normal operation.
We also restore proper behavior of goal printing in coqtop on quiet
mode, thanks to @Matafou for the report.
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/class_tactics.ml | 2 | ||||
-rw-r--r-- | tactics/hints.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index ea1966093..df222eed8 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -590,7 +590,7 @@ let make_resolve_hyp env sigma st flags only_classes pri decl = info.Vernacexpr.hint_pattern } in make_resolves env sigma ~name:(PathHints path) - (true,false,Flags.is_verbose()) info false + (true,false,not !Flags.quiet) info false (IsConstr (EConstr.of_constr c,Univ.ContextSet.empty))) hints) else [] diff --git a/tactics/hints.ml b/tactics/hints.ml index 77ed4330c..bcc068d3d 100644 --- a/tactics/hints.ml +++ b/tactics/hints.ml @@ -1160,7 +1160,7 @@ let add_resolves env sigma clist local dbnames = (fun dbname -> let r = List.flatten (List.map (fun (pri, poly, hnf, path, gr) -> - make_resolves env sigma (true,hnf,Flags.is_verbose()) + make_resolves env sigma (true,hnf,not !Flags.quiet) pri poly ~name:path gr) clist) in let hint = make_hint ~local dbname (AddHints r) in |