let
wrap_deferred_system cmd f =
wrap_deferred f ~on_exn:(
fun
e
->
`
System
(cmd,
`
Exn
e))