let msg_output_string msg s = msg := s::!msg
let msg_serialize msg =
- List.fold_left (fun acc s -> s ^ acc) "" !msg
+ String.concat "" (List.rev !msg)
let msg_output_header msg obj =
msg_output_string msg "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n\n" ;