let
command_bg
command
args
=
match
Unix
.
fork
()
with
| 0 ->
mon_exec
command
args
;
|
pid
->
eprintf
"Background process with pid %d\n"
pid
;
flush
Pervasives
.
stderr
;
pid
;;