From c5551e809d4bd1a635a9e91c77d5ab77c5afef44 Mon Sep 17 00:00:00 2001 From: Andrea Asperti Date: Fri, 22 Oct 2004 12:21:32 +0000 Subject: [PATCH] be more quiet (removed debugging prints) --- helm/ocaml/mathql_generator/cGSearchPattern.ml | 3 ++- helm/ocaml/mathql_generator/mQueryGenerator.ml | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) 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 -- 2.39.2