blob: 10f7475b05bfb344239a28cf852077e06e449b60 (
plain) (
blame)
1
2
3
4
5
6
7
8
|
static OBJECT ZZParent(OBJECT link)
{
OBJECT y;
for( y = pred(link, CHILD); type(y) == LINK; y = pred(y, CHILD) );
return y;
}
#define Parent(y, link) ((y) = ZZParent(link))
|