let register f = let current_handler = !handler in handler := fun ppf default_handler exn -> try f ppf exn with | exn -> current_handler ppf default_handler exn