let remove_pt pts fname n =
    try
      let current = Hashtbl.find pts fname in
      Hashtbl.replace pts fname (nset_remove current n)
    with Not_found -> ()