X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fmatita%2FmatitaInit.ml;fp=helm%2Fsoftware%2Fmatita%2FmatitaInit.ml;h=8f3071334e7496c9b0bf9fd276353e859e6026b5;hb=c0f86a886451a0df3b42a1435e21b5def9f34792;hp=8ae9b00a37fb0e325058428be5ade6bb957abc66;hpb=ecb8a1b6b6bd0a1e9757d2aadc14cf34a47b97ff;p=helm.git

diff --git a/helm/software/matita/matitaInit.ml b/helm/software/matita/matitaInit.ml
index 8ae9b00a3..8f3071334 100644
--- a/helm/software/matita/matitaInit.ml
+++ b/helm/software/matita/matitaInit.ml
@@ -52,12 +52,15 @@ let registry_defaults = [
   "matita.bench",                "false";
   "matita.paste_unicode_as_tex", "false";
   "matita.noinnertypes",         "false";
+  "matita.do_heavy_checks",      "true";
     (** verbosity level: 1 is the default, 0 is intuitively "quiet", > 1 is
      * intuitively verbose *)
 ]
 
 let set_registry_values =
-  List.iter (fun key, value -> Helm_registry.set ~key ~value)
+  List.iter 
+    (fun key, value -> 
+       if not (Helm_registry.has key) then Helm_registry.set ~key ~value)
 
 let fill_registry init_status =
   if not (already_configured [ Registry ] init_status) then begin