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