Method code for $root.is()

[Turn off line numbering]

---

  1: arg @args;
  2: 
  3: if (!args)
  4:     throw(~invarg, "Must have one argument.");
  5: if (type(args[1]) == 'dictionary)
  6:     return has_ancestor(args[2]);
  7: return has_ancestor(args[1]);

---

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