X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic_proof_checking%2FcicEnvironment.ml;h=314abf4eb99aa7a32fa4cfeeb8eeed561f3ecf60;hb=f32bf1be7432cc9ff21a3a84dd95ad2e44877611;hp=1f6789e76895156311b0cc7470f89fb1b8fb7813;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/cic_proof_checking/cicEnvironment.ml b/helm/software/components/cic_proof_checking/cicEnvironment.ml
index 1f6789e76..314abf4eb 100644
--- a/helm/software/components/cic_proof_checking/cicEnvironment.ml
+++ b/helm/software/components/cic_proof_checking/cicEnvironment.ml
@@ -41,11 +41,12 @@
                  CicEnvironment SETTINGS (trust and clean_tmp)
  * ************************************************************************** *)
 
+let debug = false;;
 let cleanup_tmp = true;;
 let trust = ref  (fun _ -> true);;
 let set_trust f = trust := f
 let trust_obj uri = !trust uri
-let debug_print = fun x -> prerr_endline (Lazy.force x)
+let debug_print = if debug then fun x -> prerr_endline (Lazy.force x) else ignore
 
 (* ************************************************************************** *
                                    TYPES 
@@ -216,13 +217,15 @@ module Cache :
            if List.mem_assq uri !frozen_list then
              (* CIRCULAR DEPENDENCY DETECTED, print the error and raise *)
              begin
-               print_endline "\nCircularDependency!\nfrozen list: \n";
+(*
+               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