Method code for $sys.touch()

[Turn off line numbering]

---

  1: arg @nocorelock;
  2: 
  3: if (!nocorelock && sender().has_flag('core) && !writable_core)
  4:     throw(~perm, sender() + " is a core object, and the core isn't writable. '@set $sys:writable-core = yes' to allow this.");
  5: touched = time();
  6: 
  7: // $#Edited: 30 Nov 98 13:17 $nolan

---

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