let has_pt pts fname n =
    try
      let current = Hashtbl.find pts fname in
      nset_mem current n
    with Not_found -> false