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