let close (out,fmt) = try current := None ; Format.pp_print_flush fmt () ; Pervasives.close_out out ; with _ -> ()