eigenmath/cons.cpp
George Weigt a9a9507ac7 edit
2005-06-29 17:56:12 -07:00

15 lines
237 B
C++

// 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);
}