append.cpp

   1 // Append one list to another.
   2
   3 #include "stdafx.h"
   4 #include "defs.h"
   5
   6 void
   7 append(void)
   8 {
   9         int h;
  10
  11         save();
  12
  13         p2 = pop();
  14         p1 = pop();
  15
  16         h = tos;
  17
  18         while (iscons(p1)) {
  19                 push(car(p1));
  20                 p1 = cdr(p1);
  21         }
  22
  23         while (iscons(p2)) {
  24                 push(car(p2));
  25                 p2 = cdr(p2);
  26         }
  27
  28         list(tos - h);
  29
  30         restore();
  31 }