/* 90/07/07:  New for Epsilon 5.0 (from Epsilon manual) */

/* Routine used to cause a routine to be superceded by a newer routine,
   yet remain callable.  The original routine's name is old, it is renamed
   to oldnew, then the new routine is renamed as old. */

#include "include\eel.h"

supercede_routine (old, oldnew, new)
char *old; char *oldnew; char *new;
{
    if (!find_index (oldnew)) {			/* 1st time */
	if (!find_index (old))
	    return;
	replace_name (old, oldnew);
    }
    replace_name (new, old);
}