Function fxCheckCompartmentInstance

xs/sources/xsModule.c:2839–2849

/* COMPARTMENT */

txSlot* fxCheckCompartmentInstance(txMachine* the, txSlot* slot)
{
	if (slot->kind == XS_REFERENCE_KIND) {
		txSlot* instance = slot->value.reference;
		if (((slot = instance->next)) && (slot->flag & XS_INTERNAL_FLAG) && (slot->kind == XS_PROGRAM_KIND)) {
			return instance;
		}
	}
	mxTypeError("this: not a Compartment instance");
	return C_NULL;
}

void fxPrepareCompartmentFunction(txMachine* the, txSlot* program, txSlot* instance)
{