Module Background.Private
val mark_running_in_background : Core_kernel.Source_code_position.t -> f:(unit -> 'a) -> 'a
val mark_running_in_foreground : f:(unit -> 'a) -> 'a
val schedule_foreground_block_on_async : Core_kernel.Source_code_position.t -> ?raise_exceptions_to_monitor:Async.Monitor.t -> (unit -> unit Async.Deferred.t) -> unit