Method code for $dictionary.apply_to_keys()

[Turn off line numbering]

---

  1: arg tdict, dict;
  2: var x, newdict;
  3: 
  4: // Apply a t-dict to the keys of a dict
  5: newdict = #[];
  6: for x in (dict) {
  7:     catch ~keynf
  8:         x = x.replace(1, tdict[x[1]]);
  9:     newdict = newdict.add(@x);
 10: }
 11: return newdict;

---

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