Method code for $root.del_writer()

[Turn on line numbering]

---

arg obj;

caller() == definer() || (> .perms(sender(), 'manager) <);
writers = (writers || []).setremove(obj);
(> $sys.touch('coreok) <);
if (!writers)
    (| clear_var('writers) |);
obj.del_writable_obj();

---

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