Method code for $list.getkey()

[Turn on line numbering]

---

arg l, key;
var i, x;

if (!(x = find i in [1 .. l.length()] where (l[i][1] == key)))
    throw(~keynf, "Key not found.");
return l[x][2];

---

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