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