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