Method code for $root.set_objname()

[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

Tlon