X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Fmatita.ml;h=9b3267fec8eb614fc1f7d29da38839bc125114e1;hb=a6378eaf623f898f8cbea4381a1ea7132146c8c2;hp=1d62cadb5be0c9dadb8a4316a5c1f32d29348987;hpb=afe21e48aefe81db3ca150fac9a5bbfbc893fa59;p=helm.git

diff --git a/helm/matita/matita.ml b/helm/matita/matita.ml
index 1d62cadb5..9b3267fec 100644
--- a/helm/matita/matita.ml
+++ b/helm/matita/matita.ml
@@ -139,8 +139,11 @@ let _ =
       CicNotationParser.print_l2_pattern;
     addDebugItem "dump moo to stderr" (fun _ ->
       let status = (MatitaScript.instance ())#status in
+      let moo, metadata = status.moo_content_rev in
       List.iter (fun cmd -> prerr_endline
-        (GrafiteAstPp.pp_command cmd)) (List.rev status.moo_content_rev));
+        (GrafiteAstPp.pp_command cmd)) (List.rev moo);
+      List.iter (fun m -> prerr_endline
+        (GrafiteAstPp.pp_metadata m)) metadata);
     addDebugItem "rotate light bulbs"
       (fun _ ->
          let nb = gui#main#hintNotebook in