method
cvs_add_dir dir =
try
Ocvs_commands
.add_dir dir
with
CvsFailure
s
->
raise (
Failure
s)