Method code for $root.del_parent()

[Turn off line numbering]

  1: arg parent;
  2: var parents;
  3: 
  4: (> .perms(sender(), 'manager) <);
  5: (> $sys.touch() <);
  6: if (!valid(parent))
  7:     throw(~type, "Not a valid parent, must send a valid object.");
  8: parents = .parents();
  9: if (!(parent in parents))
 10:     throw(~parentnf, parent + " is not a parent of " + this() + ".");
 11: parents = parents.setremove(parent);
 12: (> .change_parents(parents) <);

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

the Cold Dark