Method code for $list.setremove_all()

[Turn off line numbering]

---

  1: arg list, remove;
  2: var part;
  3: 
  4: if (type(list) != 'list)
  5:     throw(~type, "First argument must be a list.");
  6: if (type(remove) != 'list)
  7:     throw(~type, "Second argument must be a list.");
  8: anticipate_assignment();
  9: for part in (remove)
 10:     list = setremove(list, part);
 11: return list;

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit