Method code for $sys.finish_core()

[Turn on line numbering]

---

var i;

// cleanup heartbeat
set_heartbeat(1);
.add_method(TMP_HEARTBEAT_CODE, 'heartbeat);
.del_var('TMP_HEARTBEAT_CODE);

// ok, finish up
catch any {
    dblog("** Verifying all non-core objects were destroyed");
    for i in ($root.descendants()) {
        refresh();
        if (!i.has_flag('core))
            dblog("** !!!!! " + i + " was not destroyed !!!!!");
    }
    .del_var('__making_core);
    dblog("** corifying remaining objects");
    $root.corify();
    dblog("** cleaning database..");
    .clean_database();
    dblog("** shutting down..");
    shutdown();
} with {
    dblog("traceback: " + traceback());
}

---

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