X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fcomponents%2Fng_extraction%2FocamlExtractionTable.ml;h=576509a04d38b213a2daf1be89c7e46945523899;hb=a823c605d3a541c8d7df2bcc3c21bf459c9d25c4;hp=148377e6f9a1b2f5da63b1a3e6d1a2e1038560cc;hpb=95e3387af669e9a9e30dafd4d096c2741fc9041c;p=helm.git

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