@verb #9253:":entrances" this none this rxdo #7165
@program #9253:":entrances" this none this
set_task_perms(caller_perms())
{vertex} = args
vertex in this.vertices || raise(E_INVARG)
edges = this.edges
entrances = {}
while (i = listiassoc(vertex, edges, 2))
  entrances = {@entrances, edges[i][1]}
  edges[1..i] = {}
endwhile
return entrances
"Last modified by manta (#7165) on Thu Nov  1 13:41:57 2001 MST."
.