From cb02d26b3cb5fba749a80b13e822d9a95ec0b5e8 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Mon, 29 Apr 2019 17:36:36 +0200
Subject: [toplevel] Only print welcome header in standard coqtop.

Closes #8410 (adapted from fix by @silene in the 8.9 branch)
---
 toplevel/coqtop.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml
index 8fae561be8..15172b30f8 100644
--- a/toplevel/coqtop.ml
+++ b/toplevel/coqtop.ml
@@ -220,7 +220,6 @@ let init_toplevel ~help ~init custom_init arglist =
   let top_lp = Coqinit.toplevel_init_load_path () in
   List.iter Mltop.add_coq_path top_lp;
   let opts, extras = custom_init ~opts extras in
-  Flags.if_verbose print_header ();
   Mltop.init_known_plugins ();
 
   Global.set_engagement opts.impredicative_set;
@@ -296,6 +295,7 @@ let rec coqc_deprecated_check args acc extras =
 let coqtop_init ~opts extra =
   init_color opts;
   CoqworkmgrApi.(init !async_proofs_worker_priority);
+  Flags.if_verbose print_header ();
   opts, extra
 
 let coqtop_toplevel =
-- 
cgit v1.2.3