X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Fcic_proof_checking%2FcicEnvironment.ml;h=314abf4eb99aa7a32fa4cfeeb8eeed561f3ecf60;hb=e1b2215f8df16ec48f634bf19d0f2e7e3305d189;hp=8965b656a4682edb2531b8aed422252b696786bd;hpb=de2d5dfa173e8200834358bc9ea9ca4e32ebe1e0;p=helm.git

diff --git a/components/cic_proof_checking/cicEnvironment.ml b/components/cic_proof_checking/cicEnvironment.ml
index 8965b656a..314abf4eb 100644
--- a/components/cic_proof_checking/cicEnvironment.ml
+++ b/components/cic_proof_checking/cicEnvironment.ml
@@ -217,13 +217,15 @@ module Cache :
            if List.mem_assq uri !frozen_list then
              (* CIRCULAR DEPENDENCY DETECTED, print the error and raise *)
              begin
+(*
                prerr_endline "\nCircularDependency!\nfrozen list: \n";
                List.iter (
                  fun (u,(_,o)) ->
                    let su = UriManager.string_of_uri u in
                    let univ = if o = None then "NO_UNIV" else "" in
-                   print_endline (su^" "^univ)) 
+                   prerr_endline (su^" "^univ)) 
                  !frozen_list;
+*)
                raise (CircularDependency (lazy (UriManager.string_of_uri uri)))
              end
            else