diff options
author | Gaetan Gilbert <gaetan.gilbert@ens-lyon.fr> | 2017-04-25 14:03:54 +0200 |
---|---|---|
committer | Gaetan Gilbert <gaetan.gilbert@ens-lyon.fr> | 2017-04-27 21:42:01 +0200 |
commit | 5eb09af1e3686d6ac518b9eafe7cfcebd2b16375 (patch) | |
tree | a35db950be4f197c86d2071ae81b1bfd07a28c3a | |
parent | b20d52da0d040fe37bb75b0b739ad7686f9af127 (diff) |
Remove uses of [Flags.make_silent]
-rw-r--r-- | checker/checker.ml | 2 | ||||
-rw-r--r-- | checker/include | 2 | ||||
-rw-r--r-- | ide/ide_slave.ml | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index 57e1806cf..5cadfe7b9 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -354,7 +354,7 @@ let parse_args argv = | "-norec" :: [] -> usage () | "-silent" :: rem -> - Flags.make_silent true; parse rem + Flags.quiet := true; parse rem | s :: _ when s<>"" && s.[0]='-' -> fatal_error (str "Unknown option " ++ str s) false diff --git a/checker/include b/checker/include index 6bea3c91a..09bf2826c 100644 --- a/checker/include +++ b/checker/include @@ -116,7 +116,7 @@ let prsub s = #install_printer prsub;;*) Checker.init_with_argv [|"";"-coqlib";"."|];; -Flags.make_silent false;; +Flags.quiet := false;; Flags.debug := true;; Sys.catch_break true;; diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml index dbfe4256b..966a94da9 100644 --- a/ide/ide_slave.ml +++ b/ide/ide_slave.ml @@ -505,7 +505,7 @@ let rec parse = function let () = Coqtop.toploop_init := (fun args -> let args = parse args in - Flags.make_silent true; + Flags.quiet := true; CoqworkmgrApi.(init Flags.High); args) |