let commit_dir ?(comment="") dir =
let com = Printf.sprintf "cd %s ; cvs commit %s -m %s "
(Filename.quote dir)
!Ocvs_config.commit_options
(Filename.quote comment)
in
let n = Sys.command com in
if n = 0 then
()
else
raise (Ocvs_types.CvsFailure (Ocvs_messages.error_exec com))