let add_when_job _loc name e sh =
let e = expr_of_ast _loc e in
- let job = { job_loc = _loc; job_name = name;
- job_cond = When_job e; job_script = sh;
- job_private = no_job_private } in
+ let job = make_when_job _loc name e sh in
jobs := job :: !jobs
let add_every_job _loc name e sh =
- let job = { job_loc = _loc; job_name = name;
- job_cond = Every_job e; job_script = sh;
- job_private = no_job_private } in
+ let job = make_every_job _loc name e sh in
jobs := job :: !jobs
let get_jobs () =