cons.cpp

   1 // Cons two things on the stack.
   2
   3 #include "stdafx.h"
   4 #include "defs.h"
   5
   6 void
   7 cons(void)
   8 {
   9         // auto var ok, no opportunity for garbage collection after p = alloc()
  10         U *p;
  11         p = alloc();
  12         p->k = CONS;
  13         p->u.cons.cdr = pop();
  14         p->u.cons.car = pop();
  15         push(p);
  16 }