-Upgrading LambdaCore to 1.8.0-

This verb has the same fix as all the others, mostly because it serves
 almost the same purpose.

@program $code_utils:find_callable_verb_named

":find_callable_verb_named(object,name[,n])";
"  returns the *number* of the first verb on object that matches the given";
"  name and has the x flag set.";
"  optional argument n, if given, starts the search with verb n,";
"  causing the first n verbs (1..n) to be ignored.";
"  0 is returned if no verb is found.";
"  This routine does not find inherited verbs.";
{object, name, ?first = 1} = args;
for i in [first..length(verbs(object)) - 1]
  verbinfo = verb_info(object, i);
  if (index(verbinfo[2], "x") && this:verbname_match(verbinfo[3], name))
    return i;
  endif
endfor
.

-8-
[Previous Page][Next Page][Contents]