(CoercDb.to_list ()));
addDebugItem "print top-level grammar entries"
CicNotationParser.print_l2_pattern;
+ addDebugItem "dump moo to stderr" (fun _ ->
+ let status = (MatitaScript.instance ())#status in
+ List.iter (fun cmd -> prerr_endline
+ (GrafiteAstPp.pp_command cmd)) (List.rev status.moo_content_rev));
addDebugItem "rotate light bulbs"
(fun _ ->
let nb = gui#main#hintNotebook in