factor/native/cons.h

typedef struct {
	CELL car;
	CELL cdr;
} F_CONS;

INLINE F_CONS* untag_cons(CELL tagged)
{
	type_check(CONS_TYPE,tagged);
	return (F_CONS*)UNTAG(tagged);
}

INLINE CELL tag_cons(F_CONS* cons)
{
	return RETAG(cons,CONS_TYPE);
}

CELL cons(CELL car, CELL cdr);

void primitive_cons(void);