Method code for $list.set_intersection()

[Turn off line numbering]

---

  1: arg l1, l2;
  2: var i, out;
  3: 
  4: // set intersection if the arguments
  5: out = [];
  6: for i in (l1) {
  7:     if (i in l2)
  8:         out = out.setadd(i);
  9: }
 10: return out;

---

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