From: Andrea Asperti <andrea.asperti@unibo.it>
Date: Fri, 22 Oct 2004 12:21:32 +0000 (+0000)
Subject: be more quiet (removed debugging prints)
X-Git-Tag: V_0_0_10~42
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=c5551e809d4bd1a635a9e91c77d5ab77c5afef44;p=helm.git

be more quiet (removed debugging prints)
---

diff --git a/helm/ocaml/mathql_generator/cGSearchPattern.ml b/helm/ocaml/mathql_generator/cGSearchPattern.ml
index 33a9894d1..47345e9f3 100644
--- a/helm/ocaml/mathql_generator/cGSearchPattern.ml
+++ b/helm/ocaml/mathql_generator/cGSearchPattern.ml
@@ -172,6 +172,7 @@ in
 ;;
 
 (*CSC: Debugging only *)
+(* 
 let get_constraints term =
  let res = get_constraints term in
  let (objs,rels,sorts) = res in
@@ -188,7 +189,7 @@ let get_constraints term =
    (function (p, s) -> prerr_endline (text_of_pos (p:>T.full_position) ^ " " ^ U.text_of_sort s)
    ) sorts ;
   res
-;;
+;; *)
 
 let universe =
    [T.MainHypothesis; T.InHypothesis; T.MainConclusion; T.InConclusion]
diff --git a/helm/ocaml/mathql_generator/mQueryGenerator.ml b/helm/ocaml/mathql_generator/mQueryGenerator.ml
index f66c42b6c..dd8b00ae3 100644
--- a/helm/ocaml/mathql_generator/mQueryGenerator.ml
+++ b/helm/ocaml/mathql_generator/mQueryGenerator.ml
@@ -114,8 +114,8 @@ let compose cl =
       | [head]       -> (f head) 
       | head :: tail -> let t = (iter f g tail) in g (f head) t
    in
-   prerr_endline "(** Compose: received constraints **)";
-   U.mathql_of_specs prerr_string cl; flush stderr;
+   (* prerr_endline "(** Compose: received constraints **)";
+   U.mathql_of_specs prerr_string cl; flush stderr; *)
    aux cl;
    let must_query =
       if ! must = [] then