From 138c8a26efd991d8a4b735cae9a2a617c065f9fe Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 29 Apr 2003 10:12:33 +0000
Subject: Bug fermeture de stdout

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3971 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/vernac.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml
index 4f129fb3f0..3285c3db0a 100644
--- a/toplevel/vernac.ml
+++ b/toplevel/vernac.ml
@@ -212,10 +212,9 @@ let compile verbosely f =
 *)
   let ldir,long_f_dot_v = Library.start_library f in
   if !dump then dump_string ("F" ^ Names.string_of_dirpath ldir ^ "\n");
-  chan_translate :=
-    if Options.do_translate () then open_out (f^".v8") else stdout;
+  if Options.do_translate () then chan_translate := open_out (f^".v8");
   let _ = load_vernac verbosely long_f_dot_v in
-  let _ = close_out !chan_translate in
+  if Options.do_translate () then close_out !chan_translate;
   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