Method code for $root.clean_root()

[Turn on line numbering]

---

var obj;

// Called by $sys.clean_database()
(> .perms(caller(), $sys) <);
(| ._clean_root('trusted, 'trusted_by) |);
(| ._clean_root('trusted_by, 'trusted) |);
(| ._clean_root('writers, 'writes) |);
(| ._clean_root('writes, 'writers) |);
if (!manager) {
    manager = this();
    .change_manager($reaper);
}
if (managed) {
    managed = managed.valid_objects();
    for obj in (managed) {
        refresh();
        if (obj.manager() != this())
            managed = setremove(managed, obj);
    }
    if (!managed)
        clear_var('managed);
}

---

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