Method code for $sys.add_method()

[Turn off line numbering]

---

  1: arg code, name, @evalonly;
  2: var line;
  3: 
  4: (> .perms(sender()) <);
  5: line = "SYSTEM: ." + tostr(name) + "() " + (evalonly ? "EVAL" : "MODIFIED");
  6: line = line + " by " + sender().namef('ref);
  7: .log(line);
  8: return (> pass(code, name, @evalonly) <);

---

// Created 27-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)