void AstCombination::pushAccessibles(MarkStack &markStack)
{
int i;
for(i=0 ; i<parms.size() ; ++i)
markStack.push((Garbage *) parms[i]);
markStack.push(function);//shallower -> processed sooner
}
void AstObject::pushAccessibles(MarkStack &v)
{
if(obj) v.push(obj);
}
void AstSymbol::pushAccessibles(MarkStack &markStack)
{
//### might have to uncomment this later, but
// for now, symbols are not handled by the GC at all
markStack.push(symbol); // ###
}
void AstForest::pushAccessibles(MarkStack &markStack)
{
int i;
for(i=0 ; i<numTrees ; ++i)
markStack.push((Garbage*)trees[i]);
}
void AstLambda::pushAccessibles(MarkStack &markStack)
{
markStack.push(body);
}
void AstFreeVariable::pushAccessibles(MarkStack &markStack)
{
markStack.push(parent);
}