list.cpp

   1 // Create a list from n things on the stack.
   2
   3 #include "stdafx.h"
   4 #include "defs.h"
   5
   6 void
   7 list(int n)
   8 {
   9         int i;
  10         push(symbol(NIL));
  11         for (i = 0; i < n; i++)
  12                 cons();
  13 }