Method code for $list.setremove_all()

[Turn on line numbering]

---

arg list, remove;
var part;

if (type(list) != 'list)
    throw(~type, "First argument must be a list.");
if (type(remove) != 'list)
    throw(~type, "Second argument must be a list.");
anticipate_assignment();
for part in (remove)
    list = setremove(list, part);
return list;

---

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