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