blob: 2744329b7d111aca9ec4a61cb6dd7b2f11f57d19 (
plain) (
blame)
1
2
3
4
5
6
7
8
|
static OBJECT ZZChild(OBJECT link)
{
OBJECT y;
for( y = pred(link, PARENT); type(y) == LINK; y = pred(y, PARENT) );
return y;
}
#define Child(y, link) ((y) = ZZChild(link))
|