Use of standard OCaml syntax

[helm.git] / matita / components / ng_extraction / ocamlExtractionTable.ml

diff --git a/matita/components/ng_extraction/ocamlExtractionTable.ml b/matita/components/ng_extraction/ocamlExtractionTable.ml
index 148377e6f9a1b2f5da63b1a3e6d1a2e1038560cc..a3722f80d839d2780fb7df2fa2f15d919385e24f 100644 (file)
--- a/matita/components/ng_extraction/ocamlExtractionTable.ml
+++ b/matita/components/ng_extraction/ocamlExtractionTable.ml
@@ -228,7 +228,7 @@ class virtual status =
               db1,db2,dbi,dbgp,dbp,dbids,dbrefs,ch,dbmn1,dbmn2,dbo,curi,empty_info >}
   method set_ocaml_extraction_db v = {< ocaml_extraction_db = v >}
   method set_ocaml_extraction_status
-   : 'status. #g_status as 'status -> 'self
+   : 'status. (#g_status as 'status) -> 'self
    = fun o -> {< ocaml_extraction_db = o#ocaml_extraction_db >}
  end
 
@@ -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