From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Fri, 5 Jan 2007 11:37:47 +0000 (+0000)
Subject: debuggin message improved
X-Git-Tag: make_still_working~6538
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=8b7ea9a01e5836febcea9d796a1131ea73cea039;p=helm.git

debuggin message improved
---

diff --git a/helm/software/components/cic/cicUniv.ml b/helm/software/components/cic/cicUniv.ml
index fae784d36..45d303a9d 100644
--- a/helm/software/components/cic/cicUniv.ml
+++ b/helm/software/components/cic/cicUniv.ml
@@ -582,7 +582,7 @@ let add_eq ?fast u v b =
 (* TODO: uncomment l to gain a small speedup *)
 let merge_ugraphs ~base_ugraph ~increment:(increment, uri_of_increment(*,l*)) =
   let merge_brutal (u,a,_) v = 
-    prerr_endline (UriManager.string_of_uri uri_of_increment);
+    prerr_endline ("merging graph: "^UriManager.string_of_uri uri_of_increment);
     let m1 = u in 
     let m2 = v in 
       MAL.fold (