rosella/src/lib/primitive/append.rls

;; Concatenates the list argument(s) into a single new list.

(load "foldr.rls")

(define (append . lsts)
  (foldr (lambda (lst base)
           (foldr cons base lst))
         '()
         lsts))

; vim:set syntax= sw=2 expandtab: