diff options
| author | herbelin | 2003-04-29 10:12:33 +0000 |
|---|---|---|
| committer | herbelin | 2003-04-29 10:12:33 +0000 |
| commit | 138c8a26efd991d8a4b735cae9a2a617c065f9fe (patch) | |
| tree | 52d6b9a51807005490ce10b50b3ed01613a60d5f | |
| parent | 740fb556ffda7095ffe9c67fdeeb19713e80ad62 (diff) | |
Bug fermeture de stdout
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3971 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/vernac.ml | 5 |
1 files 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") |