X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FmetadataQuery.ml;h=2941a806e3193025436a4d23393cd3ce8e9ff8ef;hb=ac31c84bb9bcf327554976d4296d787853fc8db5;hp=abe192b94b9341b98ac05647c27985517bdabb91;hpb=ac741958783108ff31552e533c853e85c2ebb1c5;p=helm.git

diff --git a/helm/software/components/tactics/metadataQuery.ml b/helm/software/components/tactics/metadataQuery.ml
index abe192b94..2941a806e 100644
--- a/helm/software/components/tactics/metadataQuery.ml
+++ b/helm/software/components/tactics/metadataQuery.ml
@@ -288,20 +288,20 @@ let universe_of_goal ~(dbd:HSql.dbd) apply_only metasenv goal =
   let uris =
     Constr.UriManagerSet.fold
       (fun u acc -> 
-         prerr_endline ("processing "^(UriManager.string_of_uri u));
+         debug_print (lazy ("processing "^(UriManager.string_of_uri u)));
          let set_for_sigmatch = 
 	   Constr.UriManagerSet.remove u all_constants_closed in
 	 if LibraryObjects.is_eq_URI (UriManager.strip_xpointer u) then
 	   (* equality has a special treatment *)
-           (prerr_endline "special treatment";
+           (debug_print (lazy "special treatment");
 	   let tfe =
 	     Constr.SetSet.elements (types_for_equality metasenv goal) 
 	   in
 	     List.fold_left 
 	       (fun acc l ->
 		  let tyl = Constr.UriManagerSet.elements l in
-                  prerr_endline ("tyl: "^(String.concat "\n" 
-			(List.map UriManager.string_of_uri tyl)));
+                  debug_print (lazy ("tyl: "^(String.concat "\n" 
+			(List.map UriManager.string_of_uri tyl))));
 		  let set_for_sigmatch =
 		    Constr.UriManagerSet.diff set_for_sigmatch l in
 		  let uris =
@@ -310,7 +310,7 @@ let universe_of_goal ~(dbd:HSql.dbd) apply_only metasenv goal =
 		    acc @ uris) 
 	       acc tfe)
 	 else
-           (prerr_endline "normal treatment";
+           (debug_print (lazy "normal treatment");
            let uris =
              sigmatch ~dbd ~facts:false ~where:`Statement 
                (Some (u,[]),set_for_sigmatch)