diff options
| author | herbelin | 2003-05-13 22:40:06 +0000 |
|---|---|---|
| committer | herbelin | 2003-05-13 22:40:06 +0000 |
| commit | f6ef45b99330719391111df5d51dfb55d853d962 (patch) | |
| tree | 484bd706981a4fe9cbc10cd4340428719f35a54c | |
| parent | a9cce3d67a921065058274cf9f81bac25cf721c0 (diff) | |
Affichage commentaires
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4011 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/vernac.ml | 7 |
1 files changed, 6 insertions, 1 deletions
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") |