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