diff options
-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) |