Method code for $dictionary.apply()

[Turn on line numbering]

---

arg tdict, list;
var x;

// Apply a translation-dict to a list
for x in [1 .. list.length()] {
    catch ~keynf
        list = list.replace(x, tdict[list[x]]);
}
return list;

---

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