Method code for $root.add_parent()

[Turn on line numbering]

---

arg parent;

(> .perms(sender(), 'manager) <);
(> $sys.touch() <);
(> parent.will_inherit(sender()) <);
if (.has_ancestor(parent))
    throw(~perm, this() + " already has " + parent + " as an ancestor.");
.change_parents(parents() + [parent]);

---

["// Created as a part of ColdCore, see: @help Credit"]