Method code for $foundation.undefine_msg()

[Turn off line numbering]

---

  1: arg name;
  2: var d;
  3: 
  4: (> .perms(sender()) <);
  5: if (!.defined_msgs().contains(name))
  6:     throw(~msgnf, "Message \"" + name + "\" is not defined by " + this());
  7: 
  8: // clear it on all descendants, then us
  9: for d in (.descendants()) {
 10:     d.clear_msg(name);
 11:     pause();
 12: }
 13: .clear_msg(name);
 14: 
 15: // bye bye
 16: defined_msgs = dict_del(defined_msgs, name);
 17: if (!defined_msgs)
 18:     clear_var('defined_msgs);

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit