HTLink * newLink = (HTLink *)calloc (1, sizeof (HTLink));
HTLink * newLink = typecalloc(HTLink);
PUBLIC BOOL HTAnchor_link ARGS3(	HTAnchor *,	source,	HTAnchor *,	destination,	HTLinkType *,	type){    if (!(source && destination))	return(NO);  /* Can't link to/from non-existing anchor */    CTRACE(tfp, "Linking anchor %p to anchor %p\n", source, destination);    if (!source->mainLink.dest) {	source->mainLink.dest = destination;	source->mainLink.type = type;    } else {	HTLink * newLink = (HTLink *)calloc (1, sizeof (HTLink));	if (newLink == NULL)	    outofmem(__FILE__, "HTAnchor_link");	newLink->dest = destination;	newLink->type = type;	if (!source->links)	    source->links = HTList_new();	HTList_addObject (source->links, newLink);    }    if (!destination->parent->sources)	destination->parent->sources = HTList_new();    HTList_addObject (destination->parent->sources, source);    return(YES);  /* Success */}