method private params_for_mark mark =
let param_id = C.string
~f: (fun s -> mark.mark_id <- s)
Rep_messages.ocaml_id mark.mark_id
in
let param_name = C.string
~f: (fun s -> mark.mark_name <- s)
Rep_messages.name mark.mark_name
in
[param_id ; param_name]