Method code for $foundation.will_inherit()

[Turn off line numbering]

---

  1: arg who;
  2: 
  3: if (this() != definer() && !sender().has_ancestor(definer()))
  4:     throw(~perm, this() + " may only have parents who are descendants of $foundation");
  5: (> pass(who) <);

---

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

Method Ancestry Override:

 !---   36 $foundation.will_inherit(who)
 ----   65 $root.will_inherit(who)