]> matita.cs.unibo.it Git - helm.git/commitdiff
Debugging code is now controlled by the debug flag.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Mon, 30 Oct 2006 17:31:31 +0000 (17:31 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Mon, 30 Oct 2006 17:31:31 +0000 (17:31 +0000)
components/tactics/autoTactic.ml

index cdfcf8c73ec560dfaf887bb9540e0267e4503659..8e94bba86e4f072796f32d482f363d5df2e5ed24 100644 (file)
@@ -286,7 +286,7 @@ let auto_tac_old ?(depth=default_depth) ?(width=default_width) ~(dbd:HMysql.dbd)
         debug_print (lazy "AUTO_TAC HA FINITO");
         let _,_,p,_ = proof in
         debug_print (lazy (CicPp.ppterm p));
-        Printf.printf "tempo: %.9f\n" (t2 -. t1);
+        debug_print (lazy (Printf.sprintf "tempo: %.9f\n" (t2 -. t1)));
         (proof,[])
     | _ -> assert false
   in