Method code for $root.del_writer()

[Turn off line numbering]

---

  1: arg obj;
  2: 
  3: caller() == definer() || (> .perms(sender(), 'manager) <);
  4: writers = (writers || []).setremove(obj);
  5: (> $sys.touch('coreok) <);
  6: if (!writers)
  7:     (| clear_var('writers) |);
  8: obj.del_writable_obj();

---

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