path: root/count_child.h

static OBJECT ZZCountChild(OBJECT link, int *i)
{
  OBJECT y;
  for(y=pred(link, PARENT), (*i)=1; type(y)==LINK; y = pred(y, PARENT), (*i)++);
  return y;
}

#define CountChild(y, link, i) ((y) = ZZCountChild(link, &(i)))