if C.set h C.Warn then
begin
C.log h "MQIExecute: waring: reference to undefined variables: ";
- P.text_of_query (C.log h) q "\n"
+ P.text_of_query (C.log h) "\n" q
end
in
let rec eval_val c = function
| M.Log (_,b,x) ->
if b then begin
let t = P.start_time () in
- P.text_of_query (C.log h) x "\n";
+ P.text_of_query (C.log h) "\n" x;
let s = P.stop_time t in
if C.set h C.Stat then
C.log h (Printf.sprintf "Log source: %s\n" s);
end else begin
let s = (eval_query c x) in
let t = P.start_time () in
- P.text_of_result (C.log h) s "\n";
+ P.text_of_result (C.log h) "\n" s;
let r = P.stop_time t in
if C.set h C.Stat then
C.log h (Printf.sprintf "Log: %s\n" r);