let local_write () =
  match ocamlbuild_commands#get with
  [] -> (try Sys.remove local_rc_file with _ -> ())
  | _ -> local_group#write local_rc_file