Method code for $dictionary.apply_to_values()

[Turn on line numbering]

---

arg tdict, dict;
var x, newdict;

// Apply a t-dict to the values of a dict
newdict = #[];
for x in (dict) {
    catch ~keynf
        x = x.replace(2, tdict[x[2]]);
    newdict = newdict.add(@x);
}
return newdict;

---

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