/* advance.scs : advance variables for next time step. */

/* Advance winner. */
advance (clearingrec)
    crecord *clearingrec;
{
    clearingrec -> oldwinner = clearingrec -> winner;
}