Method code for $root.set_objname()

[Turn on line numbering]

---

arg objname;

(> .perms(sender()) <);
if (.has_flag('core))
    throw(~perm, this() + " is a core object; you cannot change its object name!");
(> $sys.touch() <);

// Make sure first argument is a symbol.
if (type(objname) != 'symbol)
    throw(~type, "New objname is not a symbol.");

// Make sure everything is lowercase.
objname = tosym(tostr(objname).lowercase());

// Do nothing if objname isn't different.
if (objname == (| objname() |))
    return;
return (> set_objname(objname) <);

---

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