#include <stdio.h>
#include <malloc.h>
#include <stdlib.h>

#include <expValue.h>
#include <ident.h>
#include <assign.h>
#include <tepal.h>

	s_expVal *
assign(s_ident * to, s_expVal * from)
{
	if (identGetType (to) == ID_TYP_IDL) {
		char * key = identGetKey(to);
		exitError(ERR_NO_INDEX, key);
	}

	/* !!!IMPORTANT!!! work here */
	/*identListPutVal (block, to);*/
	identSetExp(to, from);

	return from;
}