X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Focaml%2Fmathql_interpreter%2Fdiff.ml;h=d522526914a0e02ea82bcbca4761928082a7d3c3;hb=1d4f3c9c4b5241c085b1af4fd7c2bf58585532a7;hp=b4e09196ee5c42e097cbc2c250f2db317d0f491b;hpb=ba824e867afc3eaf081ed1a1d6526d421242a6a0;p=helm.git

diff --git a/helm/ocaml/mathql_interpreter/diff.ml b/helm/ocaml/mathql_interpreter/diff.ml
index b4e09196e..d52252691 100644
--- a/helm/ocaml/mathql_interpreter/diff.ml
+++ b/helm/ocaml/mathql_interpreter/diff.ml
@@ -81,7 +81,7 @@ let rec diff_ex rs1 rs2 =
 
 
 
-
+(*
 let diff_ex l1 l2 =
  let before = Sys.time () in
  let res = diff_ex l1 l2 in
@@ -89,10 +89,10 @@ let diff_ex l1 l2 =
   let ll1 = string_of_int (List.length l1) in
   let ll2 = string_of_int (List.length l2) in
   let diff = string_of_float (after -. before) in
-  print_endline
+  prerr_endline
    ("DIFF(" ^ ll1 ^ ", " ^ ll2 ^ ") = " ^ string_of_int (List.length res) ^
     ": " ^ diff ^ "s") ;
   flush stdout ;
   res
 ;;
-
+*)