let close desc = if desc.inode.stats.st_nlink == 0 && desc.inode.reference_number == 1 then (* correspond à la suppression de l'inode *) (* ne devrait jamais arriver *) raise (File_system_error "Corrupted file system") else desc.inode.reference_number <- desc.inode.reference_number - 1;; |