Method code for $list.delkey()

[Turn on line numbering]

---

arg l, key;
var i;

i = find i in [1 .. l.length()] where (l[i][1] == key);
anticipate_assignment();
return i ? delete(l, i) : l;

---

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