- * @return true if no exception has been raised, false otherwise *)
- method wrap_exn : (unit -> unit) -> bool
+ * @return Some of the returned value if the given function suceeds, None
+ * otherwise *)
+ method wrap_exn : 'a. (unit -> 'a) -> 'a option