X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmathql_interpreter%2Fsortedby.ml;h=177cf3c034369c70f4c2d819d0ccf91deb4b8a9c;hb=69ecdb3f3ec94440f1736b5e0247f2ced2e5b2c6;hp=d468ae2fce022c7b337f98d26ec56465eb33c277;hpb=f870fdd883e3380f77f260709d4cb76e9d5def2b;p=helm.git

diff --git a/helm/ocaml/mathql_interpreter/sortedby.ml b/helm/ocaml/mathql_interpreter/sortedby.ml
index d468ae2fc..177cf3c03 100644
--- a/helm/ocaml/mathql_interpreter/sortedby.ml
+++ b/helm/ocaml/mathql_interpreter/sortedby.ml
@@ -53,10 +53,10 @@ let sortedby_ex alist order afunc =
    let after = Unix.time ()
    and ll1 = string_of_int (List.length alist) in
     let diff = string_of_float (after -. before) in
-     prerr_endline
+     print_endline
       ("SORTEDBY(" ^ ll1 ^ ") = " ^ string_of_int (List.length res) ^
        ": " ^ diff ^ "s") ;
-     flush stderr ;
+     flush stdout ;
      res
 ;;