Function fxAt

xs/sources/xsSymbol.c:432–471

}

txSlot* fxAt(txMachine* the, txSlot* slot)
{
	txIndex index;
	txString string;
again:
	if ((slot->kind == XS_INTEGER_KIND) && fxIntegerToIndex(the, slot->value.integer, &index)) {
		slot->value.at.id = XS_NO_ID;
		slot->value.at.index = index;
	}
	else if ((slot->kind == XS_NUMBER_KIND) && fxNumberToIndex(the, slot->value.number, &index)) {
		slot->value.at.id = XS_NO_ID;
		slot->value.at.index = index;
	}
	else if (slot->kind == XS_SYMBOL_KIND) {
		slot->value.at.id = slot->value.symbol;
		slot->value.at.index = 0;
	}
    else {
        if (slot->kind == XS_REFERENCE_KIND) {
            fxToPrimitive(the, slot, XS_STRING_HINT);
            goto again;
        }
        string = fxToString(the, slot);
        if (fxStringToIndex(the, string, &index)) {
            slot->value.at.id = XS_NO_ID;
            slot->value.at.index = index;
        }
        else {
			txID id;
            if (slot->kind == XS_STRING_X_KIND)
                id = fxNewNameX(the, string);
            else
                id = fxNewName(the, slot);
            slot->value.at.id = id;
            slot->value.at.index = 0;
        }
    }
	slot->kind = XS_AT_KIND;
	return slot;
}

void fxKeyAt(txMachine* the, txID id, txIndex index, txSlot* slot)
{