Method code for $sys.add_method()

[Turn on line numbering]

---

arg code, name, @evalonly;
var line;

(> .perms(sender()) <);
line = "SYSTEM: ." + tostr(name) + "() " + (evalonly ? "EVAL" : "MODIFIED");
line = line + " by " + sender().namef('ref);
.log(line);
return (> pass(code, name, @evalonly) <);

---

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

Method Ancestry Override:

 ----   73 $sys.add_method(code, name, @evalonly)
 ----  240 $root.add_method(code, name, @evalonly)