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