Method code for $message_frob.message()

[Turn off line numbering]
  1: arg name, @definer;
  2: var a, message, mes, m;
  3: 
  4: //retrieve the specified message as ctext
  5: if (definer)
  6:     definer = definer[1];
  7: else
  8:     definer = (._find_message_definer(name))[2];
  9: message = $message_frob.new();
 10: for a in (.ancestors()) {
 11:     catch ~methodnf, ~messagenf
 12:         return a.local_message(name, definer);
 13: }
 14: throw(~messagenf, "No matching message.");

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit

Tlon