factor/native/cons.c

#include "factor.h"

CELL cons(CELL car, CELL cdr)
{
	F_CONS* cons = allot(sizeof(F_CONS));
	cons->car = car;
	cons->cdr = cdr;
	return tag_cons(cons);
}

void primitive_cons(void)
{
	CELL car, cdr;
	maybe_gc(sizeof(F_CONS));
	cdr = dpop();
	car = dpop();
	dpush(cons(car,cdr));
}