From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Mon, 4 Feb 2013 22:36:52 +0000 (+0000)
Subject: Flushing needed before closing the channel.
X-Git-Tag: make_still_working~1273
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=d275ce86acfa23b5f82a75ad90d1bdf630c494d8;p=helm.git

Flushing needed before closing the channel.
---

diff --git a/matita/components/ng_extraction/ocamlExtractionTable.ml b/matita/components/ng_extraction/ocamlExtractionTable.ml
index 148377e6f..576509a04 100644
--- a/matita/components/ng_extraction/ocamlExtractionTable.ml
+++ b/matita/components/ng_extraction/ocamlExtractionTable.ml
@@ -249,6 +249,8 @@ let close_file status =
  match ch with
     None -> assert false
   | Some ch ->
+     Format.pp_print_flush (snd (fst ch)) ();
+     Format.pp_print_flush (snd (snd ch)) ();
      close_out (fst (fst ch));
      close_out (fst (snd ch));
      let ch = None in