This should work:

# class foo =
  object
    method bar =
      let helper a b ?(c = "") () =
        Printf.printf "a = %d; b = %b; c = %s\n" a b c in
        helper
  end;;
class foo : object method bar : int -> bool -> ?c:string -> unit -> unit end

Any undesired side effects?


-- 
Paolo
~
~
:wq