Method code for $list.affix()

[Turn off line numbering]

---

  1: arg l1, l2;
  2: var last, first;
  3: 
  4: // Combines l1 and l2 by appending the first element of l2 to the last
  5: // of l1.
  6: if (type(l2) != 'list)
  7:     l2 = [l2];
  8: last = (| l1.last() |) || "";
  9: first = (| l2[1] |) || "";
 10: l1 = [@l1.chop(), last + first];
 11: if (l2.length() > 1)
 12:     l1 += l2.subrange(2);
 13: return l1;

---

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