X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fmatita.ml;h=4fdc704e220a8593610a18635bf9f72a37304e23;hb=e9b09b14538f770b9e65083c24e3e9cf487df648;hp=eba59f6fdeabaa95b084c09a2de73379c6c0f847;hpb=59d16f85df2cf399e3dc583f99eb9a873e7e618b;p=helm.git

diff --git a/helm/software/matita/matita.ml b/helm/software/matita/matita.ml
index eba59f6fd..4fdc704e2 100644
--- a/helm/software/matita/matita.ml
+++ b/helm/software/matita/matita.ml
@@ -150,7 +150,7 @@ let _ =
     in
     addDebugItem "dump aliases" (fun _ ->
       let status = script#grafite_status in
-      LexiconEngine.dump_aliases HLog.debug "" status);
+      LexiconEngine.dump_aliases prerr_endline "" status);
 (* FG: DEBUGGING   
     addDebugItem "dump interpretations" (fun _ ->
       let status = script#lexicon_status in
@@ -211,11 +211,13 @@ let _ =
       (fun mi () -> MultiPassDisambiguator.only_one_pass := mi#active);
     addDebugCheckbox "tactics logging" 
       (fun mi () -> NTacStatus.debug := mi#active);
-    addDebugCheckbox "disambiguation/refiner/unification logging"
+    addDebugCheckbox "auto logging"
+      (fun mi () -> NAuto.debug := mi#active);
+    addDebugCheckbox "disambiguation/refiner/unification/metasubst logging"
       (fun mi () -> NCicRefiner.debug := mi#active; NCicUnification.debug :=
-              mi#active; MultiPassDisambiguator.debug := mi#active);
+              mi#active; MultiPassDisambiguator.debug := mi#active; NCicMetaSubst.debug := mi#active);
     addDebugCheckbox "reduction logging"
-      (fun mi () -> NCicReduction.debug := mi#active);
+      (fun mi () -> NCicReduction.debug := mi#active; CicReduction.ndebug := mi#active);
     addDebugSeparator ();
     addDebugItem "Expand virtuals"
     (fun _ -> (MatitaScript.current ())#expandAllVirtuals);