Method code for $root.corify_descendants_of()

[Turn on line numbering]

---

arg obj;
var d, name, l;

name = (| tosym("core_" + obj.objname()) |);
catch ~methodnf {
    if ((> obj.find_method(name) <) != obj) {
        $sys.log("** Coremethod for " + obj + " in wrong place (on " + obj.find_method(name) + ") **");
        return;
    }
} with {
    return;
}
for d in ([obj] + obj.descendants()) {
    catch any {
        (> d.(name)() <);
    } with {
        $sys.log("** ERROR encountered in " + d + "." + name + "():");
        for l in ($parse_lib.traceback(traceback()))
            $sys.log(l);
    }
    refresh();
}

---

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