Method code for $list.addkey()

[Turn off line numbering]

---

  1: arg l, key, val;
  2: var i;
  3: 
  4: i = find i in [1 .. l.length()] where (l[i][1] == key);
  5: anticipate_assignment();
  6: return i ? replace(l, i, [key, val]) : l + [[key, val]];

---

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