diff options
| -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") |