#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;
}