2aa
@verb #7165:"_callers_scan" this none this rxdo #7165
@program #7165:"_callers_scan" this none this
"Called using args: {<this>, <verb-name>, <programmer>, <verb-loc>, <player>}.  If an arg is *, it matches all entries."
"All args must match to match entry."
"Returns first entry matched or #-1 if none"
"03/11/96-added cheap trick to produce O(n) operation.  Did you know 'x in {y,z,a,...}' only takes 2 ticks?"
callers = callers()[2..length(callers())]
while (x = "*" in args)
  args = listdelete(args, x)
  for y in [1..length(callers)]
    callers[y] = listdelete(callers[y], x)
  endfor
endwhile
return (a = args in callers) ? callers()[a + 1] | $failed_match
.

0