]> matita.cs.unibo.it Git - helm.git/commitdiff
more error messages were on stdout :-(
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 24 Mar 2006 17:54:21 +0000 (17:54 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 24 Mar 2006 17:54:21 +0000 (17:54 +0000)
components/cic_proof_checking/cicEnvironment.ml

index 8965b656a4682edb2531b8aed422252b696786bd..535869b3525954d723c854827fe20a1f265073c6 100644 (file)
@@ -222,7 +222,7 @@ module Cache :
                  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