release snapshot

[helm.git] / helm / matita / matitaMathView.ml

diff --git a/helm/matita/matitaMathView.ml b/helm/matita/matitaMathView.ml
index 3c4997aeca09e8437e9c6e9f647543fbae340983..e2eb22d5b8f05371ac9f456597360b35668f2c74 100644 (file)
--- a/helm/matita/matitaMathView.ml
+++ b/helm/matita/matitaMathView.ml
@@ -490,9 +490,11 @@ object (self)
       (Some (Some unsh_sequent,
         ids_to_terms, ids_to_hypotheses, ids_to_father_ids,
         Hashtbl.create 1, None));
-    let name = "sequent_viewer.xml" in
-    HLog.debug ("load_sequent: dumping MathML to ./" ^ name);
-    ignore (domImpl#saveDocumentToFile ~name ~doc:mathml ());
+    if BuildTimeConf.debug then begin
+      let name = "sequent_viewer.xml" in
+      HLog.debug ("load_sequent: dumping MathML to ./" ^ name);
+      ignore (domImpl#saveDocumentToFile ~name ~doc:mathml ())
+    end;
     self#load_root ~root:mathml#get_documentElement
 
   method load_object obj =
@@ -510,9 +512,11 @@ object (self)
         XmlDiff.update_dom ~from:current_mathml mathml;
         self#thaw
     |  _ ->
-        let name = "cic_browser.xml" in
-        HLog.debug ("cic_browser: dumping MathML to ./" ^ name);
-        ignore (domImpl#saveDocumentToFile ~name ~doc:mathml ());
+        if BuildTimeConf.debug then begin
+          let name = "cic_browser.xml" in
+          HLog.debug ("cic_browser: dumping MathML to ./" ^ name);
+          ignore (domImpl#saveDocumentToFile ~name ~doc:mathml ())
+        end;
         self#load_root ~root:mathml#get_documentElement;
         current_mathml <- Some mathml);
 end