method private params_for_list list =
let param_f = C.string
~f: (fun s -> list.f <- s)
Rep_messages.fun_unit list.f
in
let param_var = C.string
~f: (fun s -> list.var <- s)
Rep_messages.ocaml_id list.var
in
[param_var ; param_f]