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