X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmathql_test%2Fmqgtop.ml;h=b65c805579b0be6541db255084c2604eb67aa0d0;hb=6f0f31787fb03ea4956227e8fcdbc12abd366931;hp=d13ab253842c66fa87eef8d88130159e1f268ad4;hpb=6e2770c280aa9e74604e25324afb680b18d01964;p=helm.git diff --git a/helm/mathql_test/mqgtop.ml b/helm/mathql_test/mqgtop.ml index d13ab2538..b65c80557 100644 --- a/helm/mathql_test/mqgtop.ml +++ b/helm/mathql_test/mqgtop.ml @@ -325,8 +325,8 @@ let rec parse = function let _ = let t = U.start_time () in - Logger.log_callback := - (Logger.log_to_html + CicLogger.log_callback := + (CicLogger.log_to_html ~print_and_flush:(fun s -> print_string s; flush stdout)) ; parse (List.tl (Array.to_list Sys.argv)); prerr_endline ("mqgtop: done in " ^ (U.stop_time t));