Function fxToPrimitive

xs/sources/xsType.c:270–297

}

void fxToPrimitive(txMachine* the, txSlot* theSlot, txInteger theHint)
{
	if (mxIsReference(theSlot)) {
		fxBeginHost(the);
		mxPushSlot(theSlot);
		mxPushSlot(theSlot);
		mxGetID(mxID(_Symbol_toPrimitive));
		if (mxIsUndefined(the->stack) || mxIsNull(the->stack)) {
			mxPop();
			mxPush(mxOrdinaryToPrimitiveFunction);
		}
		mxCall();
		if (theHint == XS_NO_HINT)
			mxPushSlot(&mxDefaultString);
		else if (theHint == XS_NUMBER_HINT)
			mxPushSlot(&mxNumberString);
		else
			mxPushSlot(&mxStringString);
		mxRunCount(1);
		theSlot->kind = the->stack->kind;
		theSlot->value = the->stack->value;
		if (mxIsReference(the->stack)) {
			mxTypeError("cannot coerce to primitive");
		}
		mxPullSlot(theSlot);
		fxEndHost(the);
	}
}

void fxToSpeciesConstructor(txMachine* the, txSlot* constructor)
{