X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Fmatita.ml;h=a422ece1655ba7321d9ce31d1cb5fb68aaf74d0a;hb=6915a58db8db95966b9519d1d984d895e7b5fe39;hp=0178982e9b6de2a83a2cdcf6726324821318bbe2;hpb=9e9de11063c35559135987c72328231b57e4a609;p=helm.git diff --git a/helm/matita/matita.ml b/helm/matita/matita.ml index 0178982e9..a422ece16 100644 --- a/helm/matita/matita.ml +++ b/helm/matita/matita.ml @@ -146,11 +146,12 @@ let _ = (fun _ -> let nb = gui#main#hintNotebook in nb#goto_page ((nb#current_page + 1) mod 3)); + (* addDebugItem "print (on stdout) \"statement\" grammar entry" (fun _ -> Grammar.print_entry Format.std_formatter (Grammar.Entry.obj CicTextualParser2.statement); - Format.pp_print_flush Format.std_formatter ()); + Format.pp_print_flush Format.std_formatter ());*) end (** *)