[Turn off line numbering]
1: arg objname;
2:
3: (> .perms(sender()) <);
4: if (.has_flag('core))
5: throw(~perm, this() + " is a core object; you cannot change its object name!");
6: (> $sys.touch() <);
7:
8: // Make sure first argument is a symbol.
9: if (type(objname) != 'symbol)
10: throw(~type, "New objname is not a symbol.");
11:
12: // Make sure everything is lowercase.
13: objname = tosym(tostr(objname).lowercase());
14:
15: // Do nothing if objname isn't different.
16: if (objname == (| objname() |))
17: return;
18: return (> set_objname(objname) <);
["// Created as a part of ColdCore, see: @help Credit"]