eigenmath/cons.cpp

// Cons two things on the stack.

#include "stdafx.h"
#include "defs.h"

void
cons(void)
{
	U *p; // auto var ok, no garbage collection is done here
	p = alloc();
	p->k = CONS;
	p->u.cons.cdr = pop();
	p->u.cons.car = pop();
	push(p);
}