/* effector.scs : effector routine. */

/* Procedure to set action in object as dictated by auction winner. */
effector (population, clearingrec, environrec)
    poptype *population;
    crecord *clearingrec;
    erecord *environrec;
{
    environrec -> classifieroutput = population->classifier[clearingrec->winner].a;
}