method private params_for_cond cond = let param = C.string ~f: (fun s -> cond.cond <- s) Rep_messages.fun_unit cond.cond in [param]