/* Copyright Massachusetts Institute of Technology 1990,1991 */

#ifndef lint
static char rcsid[] = "$Header: _anyize.c,v 1.2 91/06/06 13:25:21 root Exp $";
#endif lint
/* $Log:	_anyize.c,v $
 * Revision 1.2  91/06/06  13:25:21  root
 * added copyright notice
 * 
 * Revision 1.1  91/02/04  15:49:35  mtv
 * Initial revision
 * 
 */

/*						*/
/*		force				*/
/*						*/

#include "pclu_err.h"
#include "pclu_sys.h"

extern OWN_ptr _anyize_own_init;

errcode force(x, ans)
CLUREF x;
CLUREF *ans;
{
CLUREF tag, temp;
errcode err;
OWNPTR type_owns = CUR_PROC_VAR.proc->type_owns;

	/* if t == any, then return object without change */
	if (type_owns == &_anyize_own_init) {
		ans->cell = x.cell;
		signal(ERR_ok);
		}
	/* if tag != type_owns, then signal wrong_type */
	if (x.cell->tag != (int)type_owns) {
		signal(ERR_wrong_type);
		}
	/* else return value */
	ans->num = x.cell->value;
	signal(ERR_ok);
	}