Method code for $root.set_method_access()

[Turn off line numbering]

---

  1: arg method, state;
  2: 
  3: if (!.is_writable_by(sender()))
  4:     throw(~perm, sender() + " cannot write to " + this());
  5: (> $sys.touch() <);
  6: return (> set_method_access(method, state) <);

---

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