Method code for $root._clean_root()

[Turn off line numbering]

---

  1: arg v, m;
  2: var obj, value;
  3: 
  4: if ((value = get_var(v))) {
  5:     value = value.valid_objects();
  6:     for obj in (value) {
  7:         if (!(this() in obj.(m)()))
  8:             value = value.setremove(obj);
  9:         refresh();
 10:     }
 11:     if (value)
 12:         set_var(v, value);
 13:     else
 14:         clear_var(v);
 15: }

---

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