*/ 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; }
*/ 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; }