Method code for $root.add_parent()

[Turn off line numbering]

---

  1: arg parent;
  2: 
  3: (> .perms(sender(), 'manager) <);
  4: (> $sys.touch() <);
  5: (> parent.will_inherit(sender()) <);
  6: if (.has_ancestor(parent))
  7:     throw(~perm, this() + " already has " + parent + " as an ancestor.");
  8: .change_parents(parents() + [parent]);

---

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