let protect_translation4 f x y z t =
  try Result (f x y z t)
  with e -> protect_warning e