Method code for $foundation.msg_definer()

[Turn off line numbering]

---

  1: arg name;
  2: var a;
  3: 
  4: for a in (ancestors()) {
  5:     if (a == definer())
  6:         break;
  7:     catch any {
  8:         if ((a.defined_msgs())[name])
  9:             return a;
 10:     }
 11: }
 12: throw(~invmsg, "Message \"" + name + "\" is not defined.");

---

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