prerr_endline "PRIMA DI SALVARE IL FILE" ;
self#load_root ~root:sequent_mml#get_documentElement ;
prerr_endline "SALVO IL FILE IN TEMP" ;
-Misc.domImpl#saveDocumentToFile ~name:"/tmp/pippo" ~doc:sequent_mml () ;
+ignore (Misc.domImpl#saveDocumentToFile ~name:"/tmp/pippo" ~doc:sequent_mml ());
current_infos <-
Some (ids_to_terms,ids_to_father_ids,ids_to_hypotheses)
end
(ids_to_terms,ids_to_father_ids,ids_to_conjectures,ids_to_hypotheses);
(* self#load_doc ~dom:mml ;
current_mml <- Some mml ; *)
-Misc.domImpl#saveDocumentToFile ~name:"/tmp/prova" ~doc:mml () ;
+ ignore(Misc.domImpl#saveDocumentToFile ~name:"/tmp/prova" ~doc:mml ());
(match current_mml with
None ->
let time1 = Sys.time () in
self#load_root ~root:mml#get_documentElement ;
let time2 = Sys.time () in
- prerr_endline "LUCA: PASSO DA DOVE DEVO PASSARE" ;
debug_print ("Loading and displaying the proof took " ^
string_of_float (time2 -. time1) ^ "seconds") ;
current_mml <- Some mml