added moo dumping debug item

diff --git a/helm/matita/matita.ml b/helm/matita/matita.ml
index b9019a035bf809c0be3871750c5c76cd7ac9f3c3..6e5af0645c7dc7a37cef6d7df9cfc3b9899267ec 100644 (file)
--- a/helm/matita/matita.ml
+++ b/helm/matita/matita.ml
@@ -149,6 +149,10 @@ let _ =
         (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