Function fx_Iterator_concat

xs/sources/xsGenerator.c:421–445

}

void fx_Iterator_concat(txMachine* the)
{
	txSlot* list = fxNewInstance(the);
	txSlot* slot = list;
	txSlot* property;
	txInteger c = mxArgc, i;
	for (i = 0; i < c; i++) {
		txSlot* item = mxArgv(i);
		if (!mxIsReference(item))
			mxTypeError("items[%d]: not an object", i);
		mxPushSlot(item);
		slot = fxNextSlotProperty(the, slot, the->stack, XS_NO_ID, XS_NO_FLAG);
		mxGetID(mxID(_Symbol_iterator));
		if (!fxIsCallable(the, the->stack))
			mxTypeError("items[%d]: not iterable", i);
		slot = fxNextSlotProperty(the, slot, the->stack, XS_NO_ID, XS_NO_FLAG);
		mxPop();
	}
	mxPushNull();
	property = fxLastProperty(the, fxNewIteratorHelperInstance(the, the->stack, mx_Iterator_concat));
	property = fxNextReferenceProperty(the, property, list, XS_NO_ID, XS_INTERNAL_FLAG);
	mxPullSlot(mxResult);
	mxPop();
	mxPop();
}

txBoolean fx_Iterator_concat_step(txMachine* the, txSlot* iterator, txSlot* next, txSlot* extra, txSlot* value, txFlag status)
{