Exemple #1
0
*/  REBSER *Construct_Object(REBSER *parent, REBVAL *block, REBFLG asis)
/*
**		Construct an object (partial evaluation of block).
**		Parent can be null. Block is rebound.
**
***********************************************************************/
{
	REBSER *frame;

	frame = Make_Object(parent, block);
	if (NOT_END(block)) Bind_Block(frame, block, BIND_ONLY);
	if (asis) Do_Min_Construct(block);
	else Do_Construct(block);
	return frame;
}
Exemple #2
0
*/  REBSER *Construct_Object(REBSER *parent, REBVAL value[], REBFLG as_is)
/*
**		Construct an object (partial evaluation of block).
**		Parent can be null. Values are rebound.
**
***********************************************************************/
{
	REBSER *frame = Make_Object(parent, &value[0]);

	if (NOT_END(value)) Bind_Values_Shallow(&value[0], frame);

	if (as_is) Do_Min_Construct(&value[0]);
	else Do_Construct(&value[0]);

	return frame;
}