From f6ef45b99330719391111df5d51dfb55d853d962 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 13 May 2003 22:40:06 +0000
Subject: Affichage commentaires

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4011 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/vernac.ml | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml
index 1deed459d9..dea54e58a2 100644
--- a/toplevel/vernac.ml
+++ b/toplevel/vernac.ml
@@ -214,7 +214,12 @@ let compile verbosely f =
   if !dump then dump_string ("F" ^ Names.string_of_dirpath ldir ^ "\n");
   if Options.do_translate () then chan_translate := open_out (f^".v8");
   let _ = load_vernac verbosely long_f_dot_v in
-  if Options.do_translate () then close_out !chan_translate;
+  if Options.do_translate () then begin
+    Format.set_formatter_out_channel !chan_translate;
+    msg (pr_comments !comments);
+    Format.set_formatter_out_channel stdout;
+    close_out !chan_translate
+  end;
   if Pfedit.get_all_proof_names () <> [] then
     (message "Error: There are pending proofs"; exit 1);
   Library.save_library_to ldir (long_f_dot_v ^ "o")
-- 
cgit v1.2.3