let same_files f1 f2 = let f () = let st1 = Unix.stat f1 and st2 = Unix.stat f2 in st1.Unix.st_dev = st2.Unix.st_dev && st1.Unix.st_ino = st2.Unix.st_ino in fail_if_unix_error f ()