Method code for $sys.touch()

[Turn on line numbering]

---

arg @nocorelock;

if (!nocorelock && sender().has_flag('core) && !writable_core)
    throw(~perm, sender() + " is a core object, and the core isn't writable. '@set $sys:writable-core = yes' to allow this.");
touched = time();

// $#Edited: 30 Nov 98 13:17 $nolan

---

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