Debugging code commented out.

diff --git a/helm/ocaml/metadata/metadataConstraints.ml b/helm/ocaml/metadata/metadataConstraints.ml
index 852c639cef69f883a6bf1c9f9003d4732b9612a3..7bc92eb66b136c6c2c8ee6b46f4d42f1ad3469f4 100644 (file)
--- a/helm/ocaml/metadata/metadataConstraints.ml
+++ b/helm/ocaml/metadata/metadataConstraints.ml
@@ -609,12 +609,12 @@ let sigmatch ~(dbd:HMysql.dbd) ?(facts=false) ?(where = `Conclusion)
    | Some (main, types) -> Some main,types
  in
   let constants_no = UriManagerSet.cardinal constants in
-  prerr_endline (("constants_no: ")^(string_of_int constants_no));
+  (* prerr_endline (("constants_no: ")^(string_of_int constants_no)); *)
   if (constants_no > critical_value) then 
     let subsets = 
       let subsets = power_upto just_factor constants in
-      let _ = prerr_endline (("subsets: ")^
-        (string_of_int (List.length subsets))) in
+      (* let _ = prerr_endline (("subsets: ")^
+        (string_of_int (List.length subsets))) in *)
       let types_no = List.length types in
       List.map (function (n,l) -> (n+types_no,types@l)) subsets
     in