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;;