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