- (** execute a unit -> unit function, if it raises exceptions shows them as
- * errors in the console *)
- method wrap_exn : (unit -> unit) -> unit
+ (** execute a unit -> 'a function, if it raises exceptions shows them as
+ * errors in the console.
+ * @return Some of the returned value if the given function suceeds, None
+ * otherwise *)
+ method wrap_exn : 'a. (unit -> 'a) -> 'a option