let protect_translation f x y =
  try Result (f x y)
  with e -> protect_warning e