From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Fri, 22 Jul 2005 11:45:35 +0000 (+0000)
Subject: added env content debug print
X-Git-Tag: V_0_7_2~110
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=786d6e21b707035b6fb60353cef09fb8a17a58ac;p=helm.git

added env content debug print
---

diff --git a/helm/matita/matita.ml b/helm/matita/matita.ml
index 0b5919ab9..d0223a80b 100644
--- a/helm/matita/matita.ml
+++ b/helm/matita/matita.ml
@@ -152,6 +152,10 @@ let _ =
         prerr_endline (UriManager.string_of_uri u); 
         CicUniv.print_ugraph g) (CicEnvironment.list_obj ())
       );
+    addDebugItem "dump environment content" (fun _ ->
+      List.iter (fun (u,_,_) -> 
+        prerr_endline (UriManager.string_of_uri u)) 
+        (CicEnvironment.list_obj ()));
     addDebugItem "print selected terms" (fun () ->
       let i = ref 0 in
       List.iter