diff options
| author | Enrico Tassi | 2021-02-16 11:00:47 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2021-02-16 19:54:12 +0100 |
| commit | 57030f36d88800004a5bf9d0581d23f60daddad9 (patch) | |
| tree | 7291299cc58cc96abb2351fbc6c351bd5dbeb14f | |
| parent | 16765871394a81975047b37f15a902fcc112dc40 (diff) | |
[coqtop] be verbose only in interactive mode
| -rwxr-xr-x | test-suite/misc/coqtop_print-mod-uid.sh | 6 | ||||
| -rw-r--r-- | toplevel/coqtop.ml | 2 |
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 caf86ef870..c0d2bab218 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -174,7 +174,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 |