Method code for $heart._del_heartbeat()

[Turn off line numbering]

---

  1: arg obj;
  2: var x, pos;
  3: 
  4: if (info.contains(obj))
  5:     info = info.del(obj);
  6: for x in [1 .. listlen(hearts)] {
  7:     if (hearts[x][1] == obj) {
  8:         hearts = delete(hearts, x);
  9:         return 1;
 10:     }
 11: }
 12: return 0;

---

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