home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / AIJOURNL / AI_OCT86.ARC / AIAPP6.FIG < prev    next >
Encoding:
Text File  |  1986-07-16  |  384 b   |  10 lines
  1.  
  2.  FUNCTION append_list(list1,list2 : node_ptr) : node_ptr ;
  3.   BEGIN
  4.    IF list1 = NIL
  5.     THEN append_list := list2
  6.     ELSE append_list := cons(head(list1),append_list(tail(list1),list2)) ;
  7.   END ; (* append_list *)
  8.  
  9. Figure 6 - The append routine.
  10.