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
(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);