|
@@ -1358,14 +1358,17 @@ module StdLog = struct
|
|
|
|
|
|
let trace = vfun2 (fun v infos ->
|
|
|
let s = value_string v in
|
|
|
- let infos = decode_object infos in
|
|
|
- let file_name = decode_string (object_field infos key_fileName) in
|
|
|
- let line_number = decode_int (object_field infos key_lineNumber) in
|
|
|
- let l = match object_field infos key_customParams with
|
|
|
- | VArray va -> s :: (List.map value_string (EvalArray.to_list va))
|
|
|
- | _ -> [s]
|
|
|
- in
|
|
|
- ((get_ctx()).curapi.MacroApi.get_com()).Common.print (Printf.sprintf "%s:%i: %s\n" file_name line_number (String.concat "," l));
|
|
|
+ let s = match infos with
|
|
|
+ | VNull -> Printf.sprintf "%s\n" s
|
|
|
+ | _ -> let infos = decode_object infos in
|
|
|
+ let file_name = decode_string (object_field infos key_fileName) in
|
|
|
+ let line_number = decode_int (object_field infos key_lineNumber) in
|
|
|
+ let l = match object_field infos key_customParams with
|
|
|
+ | VArray va -> s :: (List.map value_string (EvalArray.to_list va))
|
|
|
+ | _ -> [s]
|
|
|
+ in
|
|
|
+ (Printf.sprintf "%s:%i: %s\n" file_name line_number (String.concat "," l)) in
|
|
|
+ ((get_ctx()).curapi.MacroApi.get_com()).Common.print s;
|
|
|
vnull
|
|
|
)
|
|
|
end
|