aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorcoqbot-app[bot]2021-02-19 14:37:51 +0000
committerGitHub2021-02-19 14:37:51 +0000
commita2938972537389b9813794147412f51494f48dd1 (patch)
tree0472a020610c89ce7d9f0a8932dc8eddc55e6225
parentbbb9876da3093658c9eca206a585b045ed258220 (diff)
parent57030f36d88800004a5bf9d0581d23f60daddad9 (diff)
Merge PR #13865: [coqtop] be verbose only in interactive mode
Reviewed-by: silene Ack-by: SkySkimmer
-rwxr-xr-xtest-suite/misc/coqtop_print-mod-uid.sh6
-rw-r--r--toplevel/coqtop.ml2
2 files changed, 7 insertions, 1 deletions
diff --git a/test-suite/misc/coqtop_print-mod-uid.sh b/test-suite/misc/coqtop_print-mod-uid.sh
new file mode 100755
index 0000000000..db1df4bb4b
--- /dev/null
+++ b/test-suite/misc/coqtop_print-mod-uid.sh
@@ -0,0 +1,6 @@
+#!/usr/bin/env bash
+
+export COQBIN=$BIN
+export PATH=$COQBIN:$PATH
+
+[ "$(coqtop -print-mod-uid prerequisite/admit.vo)" = "prerequisite/.coq-native/NTestSuite_admit" ]
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml
index 16028be910..32e942f0d0 100644
--- a/toplevel/coqtop.ml
+++ b/toplevel/coqtop.ml
@@ -164,7 +164,7 @@ let init_toploop opts stm_opts injections =
state
let coqtop_init ({ run_mode; color_mode }, async_opts) injections ~opts =
- if run_mode = Batch then Flags.quiet := true;
+ if run_mode != Interactive then Flags.quiet := true;
init_color (if opts.config.print_emacs then `EMACS else color_mode);
Flags.if_verbose print_header ();
init_toploop opts async_opts injections