From: Kim Nguyễn <kn@lri.fr>
Date: Wed, 13 Mar 2013 13:58:57 +0000 (+0100)
Subject: Remove spurious debugging messages.
X-Git-Tag: v0.1~128
X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=commitdiff_plain;h=4eee07df1e02731b7bfac0caaeb73ebec61b980a

Remove spurious debugging messages.
---

diff --git a/src/auto/eval.ml b/src/auto/eval.ml
index 4f68da0..bf9788f 100644
--- a/src/auto/eval.ml
+++ b/src/auto/eval.ml
@@ -14,7 +14,7 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-03-10 23:31:33 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-03-13 14:56:29 CET by Kim Nguyen>
 *)
 
 INCLUDE "utils.ml"
@@ -71,7 +71,7 @@ module Make (T : Tree.Sig.S) = struct
         (trs::acct, accs)
     ) ([], acc) l
 
-  let top_down_run auto tree node cache i =
+  let top_down_run auto tree node cache _i =
     let redo = ref false in
     let rec loop node =
       if node != T.nil then begin
@@ -84,10 +84,6 @@ module Make (T : Tree.Sig.S) = struct
         let ps = get cache tree parent in
         let fcs = get cache tree fc in
         let nss = get cache tree ns in
-        eprintf "-- [Iteration % 4d] --\n node: %a\n%!" i T.print_node node;
-        List.iter (fun (q, phi) -> eprintf " %a -> %a\n"
-          State.print q Ata.SFormula.print phi) trans0;
-        eprintf "----------------------\n%!";
         let trans1, states1 =
           eval_trans trans0 tree node fcs nss ps states0 states0
         in