let
set_exit_status f x = { f
with
result =
None
;
exit_status =
Some
x ;
}