Branch: Tag:

2000-01-01

2000-01-01 01:00:52 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

bugfix

Rev: lib/modules/ADT.pmod/Heap.pike:1.3

54:   {    int parent=(elem-1)/2;    -  if(!elem) return 0; -  -  if(values[elem] < values[parent]) +  if(elem && values[elem] < values[parent])    {    SWAP(elem, parent);    elem=parent; -  while(values[elem] < values[parent=(elem -1)/2]) +  while(elem && (values[elem] < values[parent=(elem -1)/2]))    {    SWAP(elem, parent);    elem=parent;