eigenmath/cons.cpp

// Cons two things on the stack.

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

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