namespace factor
{

inline static cell tuple_size(tuple_layout *layout)
{
	cell size = untag_fixnum(layout->size);
	return sizeof(tuple) + size * sizeof(cell);
}

PRIMITIVE(tuple);
PRIMITIVE(tuple_boa);
PRIMITIVE(tuple_layout);

}