Dead and useless code removed.

diff --git a/matita/matita/matitaEngine.ml b/matita/matita/matitaEngine.ml
index 6f2cd9f23b8a1910505a9c0ae4482364916e2da8..6c8a033e46f733dceb377f277902713930fc6855 100644 (file)
--- a/matita/matita/matitaEngine.ml
+++ b/matita/matita/matitaEngine.ml
@@ -110,27 +110,6 @@ let activate_extraction baseuri fname =
 ;;
 
 
-let eval_macro_screenshot (status : GrafiteTypes.status) name =
-  assert false (* MATITA 1.0
-  let _,_,metasenv,subst,_ = status#obj in
-  let sequent = List.hd metasenv in
-  let mathml = 
-    ApplyTransformation.nmml_of_cic_sequent 
-      status metasenv subst sequent 
-  in
-  let domImpl = Gdome.domImplementation () in
-  ignore(domImpl#saveDocumentToFile 
-    ~name:(name^".xml") ~doc:mathml ());
-  ignore(Sys.command ("mathmlsvg --verbose=1 --font-size=20 --cut-filename=no " ^ 
-    Filename.quote (name^".xml")));
-  ignore(Sys.command ("convert " ^ 
-    Filename.quote (name^".svg") ^ " " ^ 
-    Filename.quote (name^".png")));
-  HLog.debug ("generated " ^ name ^ ".png");
-  status, `New []
-  *)
-;;
-
 let eval_ast ~include_paths ?do_heavy_checks status (text,prefix_len,ast) =
  let baseuri = status#baseuri in
  let new_aliases,new_status =