home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / aijournl / ai_oct86.arc / AIAPP6.FIG < prev    next >
Text File  |  1986-07-16  |  384b  |  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.