Function fxCreateArraySpecies

xs/sources/xsArray.c:518–548

}

txSlot* fxCreateArraySpecies(txMachine* the, txNumber length)
{
	txSlot* instance = fxToInstance(the, mxThis);
	txFlag flag = 1;
	if (fxIsArray(the, instance)) {
		mxPushSlot(mxThis);
		mxGetID(mxID(_constructor));
		if (mxIsReference(the->stack)) {
			mxGetID(mxID(_Symbol_species));
			if (the->stack->kind == XS_NULL_KIND)
				the->stack->kind = XS_UNDEFINED_KIND;
		}
	}
	else
		mxPushUndefined();
    if (the->stack->kind == XS_UNDEFINED_KIND) {
		*the->stack = mxArrayConstructor;
        flag = 0;
    }
	else if (mxIsReference(the->stack) && mxIsConstructor(the->stack->value.reference)) {
		if (the->stack->value.reference != mxArrayConstructor.value.reference)
			flag = 0;
	}
	else
		mxTypeError("invalid constructor");
	mxNew();
	mxPushNumber(length);
	mxRunCount(1);
	mxPullSlot(mxResult);
	return (flag) ? mxResult->value.reference->next : C_NULL;
}

void fxFindThisItem(txMachine* the, txSlot* function, txNumber index, txSlot* item)
{